(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    240699,       5007]
NotebookOptionsPosition[    236012,       4887]
NotebookOutlinePosition[    236366,       4903]
CellTagsIndexPosition[    236323,       4900]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.612884647670917*^9, 3.612884647767332*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Calibrated", " ", "Parameters"}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Convert", " ", "2013", " ", "dollars", " ", "to", " ", "2000", " ", 
     "dollars"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Use", " ", "CPI", " ", "data", " ", 
      RowBox[{"http", ":"}]}], "//", 
     RowBox[{
      RowBox[{
       RowBox[{"www", ".", "bls", ".", "gov"}], "/", "data"}], "/", 
      RowBox[{"inflation_calculator", ".", "htm"}]}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"New", " ", 
     RowBox[{
      RowBox[{"2", "/", "2"}], "/", "2015."}], " ", "Convert", " ", 
     "everyting", " ", "to", " ", "2014", " ", "dollars"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"So", " ", "CPI"}], " ", "=", " ", "1.02"}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"cpi", "=", " ", "1.02"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Dollars", " ", "to", " ", "hour", " ", "conversion"}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Equal", " ", "to", " ", "price", " ", "of", " ", "time", " ", 
     RowBox[{"(", 
      RowBox[{"wage", " ", "rate"}], ")"}]}], "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"c", "=", "1"}], "  ", ";"}], " ", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"pt", "  ", "Price", " ", "of", " ", "time"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"p", "   ", "Price", " ", "of", " ", "electric", " ", "car"}], 
    " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"pc", "  ", "Price", " ", "of", " ", "gas", " ", "gar"}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"pg", "  ", "Price", " ", "of", " ", "gas"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"pe", "  ", "Price", " ", "of", " ", "electricity"}], " ", "*)"}],
    "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"T", "   ", "Endowment", " ", "of", " ", "time"}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "\[Mu]", "   ", "Variance", " ", "of", " ", "random", " ", "variables"}], 
    "  ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"\[Gamma]g", "  ", "Gas", " ", "preference", " ", "parameter"}], 
    " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "\[Gamma]e", "  ", "Electric", " ", "Preference", " ", "parameter"}], " ",
     "*)"}], "\[IndentingNewLine]", " ", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pt", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p", "=", 
     RowBox[{"35170", "*", 
      RowBox[{"cpi", "/", "c"}]}]}], ";"}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pc", "=", 
     RowBox[{"16810", "*", 
      RowBox[{"cpi", "/", "c"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pe", "=", 
     RowBox[{"0.0389052", " ", "*", 
      RowBox[{"cpi", "/", "c"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pg", "=", 
     RowBox[{"0.1125", "*", 
      RowBox[{"cpi", "/", "c"}]}]}], ";"}], "\[IndentingNewLine]", " ", 
   RowBox[{
    RowBox[{"T", "=", 
     RowBox[{"10", "*", "52", "*", "827", "*", "cpi"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Elasticity", " ", "of", " ", "demand", " ", "for", " ", "miles"}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Elasticity", " ", "=", " ", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "\[Gamma]"}]}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Gamma]g", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Gamma]e", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"lifetime", " ", "miles"}], " ", "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lm", "=", "150000"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"pick", " ", "kg"}], ",", " ", 
     RowBox[{
     "ke", " ", "such", " ", "that", " ", "consumer", " ", "selects", " ", 
      "150000", " ", "miles"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"in", " ", "BAU"}], " ", "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"kg", "=", " ", 
     RowBox[{"pg", " ", 
      RowBox[{"lm", "^", "\[Gamma]g"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ke", "=", 
     RowBox[{"pe", " ", 
      RowBox[{"lm", "^", "\[Gamma]e"}]}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"from", " ", "calibration"}], " ", "*)"}], "\[IndentingNewLine]", 
   
   RowBox[{"(*", " ", 
    RowBox[{"themus", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "10664.01930483359", ",", "10037.27977117757", ",", 
         "9248.63798368109"}], "}"}], " ", "\[IndentingNewLine]", "theas"}], 
      "=", 
      RowBox[{"{", " ", 
       RowBox[{
       "1688947864.74441", ",", "1688967313.033397", " ", ",", " ", 
        "1688976545.856515"}], "}"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Damages", " ", "per", " ", "mile", " ", "across", " ", "regions"}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Input", " ", "from", " ", "Spreadsheet"}], "          ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", " ", 
   RowBox[{"SetDirectory", "[", "\"\<\>\"", "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Input", " ", "values", " ", "for", " ", "mu", " ", "and", " ", "A", " ", 
     "from", " ", "calibration"}], " ", "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"muanda", "=", 
     RowBox[{"Import", "[", 
      RowBox[{"\"\<calibrate parms.xlsx\>\"", ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Data\>\"", ",", "1"}], "}"}]}], "]"}]}], ";"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{"theas", "=", 
    RowBox[{
     RowBox[{"Transpose", "[", "muanda", "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"themus", "=", 
    RowBox[{
     RowBox[{"Transpose", "[", "muanda", "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"numus", "=", 
     RowBox[{"Length", "[", "theas", "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Ouput", " ", "matrix", " ", "to", " ", "spreedsheet"}], " ", 
    "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", " ", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"results", "=", 
     RowBox[{"ConstantArray", "[", 
      RowBox[{"0", ",", 
       RowBox[{"{", 
        RowBox[{"17", ",", 
         RowBox[{"numus", "+", "1"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "step", " ", "through", " ", "various", " ", "values", " ", "for", " ", 
     "mu"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"index", "=", "1"}], ",", 
     RowBox[{"index", "\[LessEqual]", "numus"}], ",", 
     RowBox[{"index", "++"}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Mu]", "=", 
       RowBox[{"themus", "[", 
        RowBox[{"[", "index", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"A", "=", 
       RowBox[{"theas", "[", 
        RowBox[{"[", "index", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Value for mu \>\"", ",", "\[Mu]"}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Value for A \>\"", ",", "A"}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**"}], "******)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"**", 
        RowBox[{
        "*", "        ", "Compare", " ", "A", " ", "with", " ", "B"}]}], 
       "                                         ", "***)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**"}], "******)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Clear", "[", 
       RowBox[{
       "thedatin", ",", "thedat", ",", "\[Delta]gv", ",", "\[Delta]ev", ",", 
        "m", ",", " ", "Sv", ",", "Rv", ",", "s", ",", "R", ",", "gv", ",", 
        "eev", ",", "xgv", ",", "xev", ",", "Lgv", ",", "Lev", ",", "Wv", ",",
         "piv", ",", "Welfv", ",", "soptv", ",", "singlev", ",", "optwel", 
        ",", "singwel", ",", "piprodsingle", ",", "pisingle", ",", "exact", 
        ",", "tgoptv", ",", "teoptv", ",", "singletg", ",", "singlete", ",", 
        "Tgv", ",", "Tev", ",", "te", ",", "tg"}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"INPUT", " ", "PARAMETERS"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "county", " ", "data", " ", "missing", " ", "value", " ", "for", " ", 
        "clifton", " ", "forge", " ", "va"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"give", " ", "it", " ", "zero"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"thedatin", "=", 
       RowBox[{"Import", "[", 
        RowBox[{"\"\<B-states_full.xlsx\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Data\>\"", ",", "1"}], "}"}]}], "]"}]}], ";", " ", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"get", " ", "rid", " ", "of", " ", "column", " ", "labels"}], 
       " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"thedat", "=", 
       RowBox[{"Drop", "[", 
        RowBox[{"thedatin", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"weight", " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
         RowBox[{"[", "5", "]"}], "]"}], "/", 
        RowBox[{"Total", " ", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "5", "]"}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"1", "/", "30"}], "/", "15"}], "   ", "data", " ", "is", 
         " ", "now", " ", "in", " ", "cents", " ", "per", " ", "mile"}], ",", 
        " ", 
        RowBox[{"convert", " ", "to", " ", "dollars"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"\[Delta]gv", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "3", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", 
       RowBox[{"damages", " ", "per", " ", "mile", " ", "gas"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"\[Delta]ev", " ", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "4", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", 
       RowBox[{"damages", " ", "per", " ", "mile", " ", "electric"}], " ", 
       "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Print", "[", "thedat", "]"}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Number", " ", "of", " ", "Regions"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"m", "=", 
       RowBox[{"Length", "[", "\[Delta]gv", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"weight", "=", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{
           RowBox[{"1", "/", "m"}], ",", "m"}], "]"}]}], ";"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"VECTOR", " ", "VARIABLES"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"Generic", " ", "Tax", " ", "On", " ", "Gas"}], ",", " ", 
        "Electricity"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Tgv", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"tg", ",", "m"}], "]"}]}], ";", "    ", "\[IndentingNewLine]", 
      RowBox[{"Tev", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"te", ",", "m"}], "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Goverment", " ", "Revenue"}], " ", "*)"}], 
      "\[IndentingNewLine]", "     ", "\[IndentingNewLine]", 
      RowBox[{"Rv", " ", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"R", ",", "m"}], "]"}]}], " ", ";", "          ", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"CONSUMER", "'"}], "S", " ", "WELFARE", " ", "MAXIMIZING", 
        " ", "PROBLEM"}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Problem", " ", "given", " ", "here", " ", "for", " ", "reference"}], 
       " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Use", " ", "solution", " ", "directly"}], "            ", 
       "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Ug", "=", 
        RowBox[{
         RowBox[{"x", " ", "+", " ", 
          RowBox[{
           RowBox[{"g", "^", 
            RowBox[{"(", "\[Gamma]g", ")"}]}], " ", "\[IndentingNewLine]", 
           " ", "Ue"}]}], " ", "=", 
         RowBox[{
          RowBox[{"x", "+", " ", 
           RowBox[{
            RowBox[{"ee", "^", 
             RowBox[{"(", "\[Gamma]e", ")"}]}], "\[IndentingNewLine]", 
            "\[IndentingNewLine]", " ", "Lg"}]}], " ", "=", " ", 
          RowBox[{
           RowBox[{"Ug", " ", "-", " ", 
            RowBox[{"\[Lambda]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"pt", " ", "x"}], " ", "+", " ", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"pg", "+", "tg"}], ")"}], "g"}], "  ", "-", " ", 
               RowBox[{"pt", " ", "T"}], "+", " ", "pc", "-", " ", "R"}], 
              ")"}], "\[IndentingNewLine]", "ansg"}]}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"D", "[", 
                   RowBox[{"Lg", ",", "x"}], "]"}], "\[Equal]", "0"}], ",", 
                 RowBox[{
                  RowBox[{"D", "[", 
                   RowBox[{"Lg", ",", "g"}], "]"}], "\[Equal]", "0"}], ",", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"pt", " ", "x"}], " ", "+", " ", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"pg", " ", "+", "tg"}], ")"}], " ", "g"}], " ", 
                   "-", " ", 
                   RowBox[{"pt", " ", "T"}], "+", "pc", " ", "-", "R"}], 
                  "\[Equal]", "0"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"x", ",", "g", ",", "\[Lambda]"}], "}"}]}], "]"}], 
             " ", "\[IndentingNewLine]", "Vg"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Simplify", "[", 
                RowBox[{"Ug", "/.", "ansg"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
              "\[IndentingNewLine]", " ", "Le"}], " ", "=", " ", 
             RowBox[{
              RowBox[{"Ue", " ", "-", " ", 
               RowBox[{"\[Lambda]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"pt", " ", "x"}], " ", "+", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"pe", "+", "te"}], ")"}], "ee"}], " ", "-", " ", 
                  RowBox[{"pt", " ", "T"}], "+", " ", "p", "+", " ", "s", " ",
                   "-", "R"}], ")"}], "\[IndentingNewLine]", "anse"}]}], "=", 
              
              RowBox[{
               RowBox[{
                RowBox[{"Solve", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"D", "[", 
                    RowBox[{"Le", ",", "x"}], "]"}], "\[Equal]", "0"}], ",", 
                    RowBox[{
                    RowBox[{"D", "[", 
                    RowBox[{"Le", ",", "ee"}], "]"}], "\[Equal]", "0"}], ",", 
                    
                    RowBox[{
                    RowBox[{
                    RowBox[{"pt", " ", "x"}], " ", "+", " ", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"pe", " ", "+", "te"}], ")"}], " ", "ee"}], " ", 
                    "-", " ", 
                    RowBox[{"pt", " ", "T"}], "+", "p", " ", "+", "s", " ", 
                    "-", "R"}], "\[Equal]", "0"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"x", ",", "ee", ",", "\[Lambda]"}], "}"}]}], "]"}],
                 " ", "\[IndentingNewLine]", "Ve"}], "=", 
               RowBox[{
                RowBox[{"Simplify", "[", 
                 RowBox[{"Ue", "/.", "anse"}], "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}]}]}]}]}]}]}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"x", ",", " ", 
        RowBox[{
        "g", " ", "and", " ", "e", " ", "as", " ", "a", " ", "function", " ", 
         "of", " ", "the", " ", "parameters"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"gv", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"pt", " ", "kg"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"pg", "+", "Tgv"}], ")"}]}], " ", ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"1", "/", "\[Gamma]g"}], ")"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"eev", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"pt", " ", "ke"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"pe", "+", "Tev"}], ")"}]}], " ", ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"1", "/", "\[Gamma]e"}], ")"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"xgv", "=", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "pc"}], " ", "+", " ", "Rv", " ", "+", " ", 
          RowBox[{"pt", " ", "T"}], " ", "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"pg", "+", "Tgv"}], ")"}], " ", "gv"}]}], ")"}], " ", "/",
         "pt"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"xev", "=", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "p"}], "  ", "+", " ", "Rv", " ", "+", " ", 
          RowBox[{"pt", " ", "T"}], " ", "-", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"pe", "+", "Tev"}], ")"}], " ", "eev"}]}], ")"}], "/", 
        "pt"}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Indirect", " ", "utility"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Lgv", "=", " ", 
       RowBox[{"xgv", " ", "+", 
        RowBox[{"kg", "  ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"gv", "^", 
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Gamma]g"}], ")"}]}], "-", "1"}], ")"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Gamma]g"}], ")"}]}]}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Lev", "=", " ", 
       RowBox[{"xev", " ", "+", 
        RowBox[{"ke", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"eev", "^", 
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Gamma]e"}], ")"}]}], "-", "1"}], ")"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Gamma]e"}], ")"}]}]}], "+", " ", "A"}]}], " ",
       ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Expected", " ", "welfare", " ", "without", " ", "externalties"}], " ",
        "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Wv", "=", 
       RowBox[{"\[Mu]", " ", 
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "+", 
          RowBox[{"Exp", "[", 
           RowBox[{"Lev", "/", "\[Mu]"}], "]"}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Probability", " ", "of", " ", "selecting", " ", "electric", " ", 
        "car"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Use", " ", "simplify", " ", "to", " ", "eliminate", " ", "R", " ", 
        "term", " ", "in", " ", "pi"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"It", " ", "cancels", " ", 
        RowBox[{"out", " ", "!"}]}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"piv", "=", 
       RowBox[{"Simplify", "[", 
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Exp", "[", 
            RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "+", 
           RowBox[{"Exp", "[", 
            RowBox[{"Lev", "/", "\[Mu]"}], "]"}]}], ")"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Government", " ", "Revenue"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Rv", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "piv"}], ")"}], "Sv"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", 
        RowBox[{
         RowBox[{"R", "[", "k", "]"}], "=", " ", 
         RowBox[{
          RowBox[{
           RowBox[{"tg", "[", "k", "]"}], " ", 
           RowBox[{"piv", "[", 
            RowBox[{"[", "k", "]"}], "]"}], " ", 
           RowBox[{"gv", "[", 
            RowBox[{"[", "k", "]"}], "]"}]}], " ", "+", " ", 
          RowBox[{
           RowBox[{"te", "[", "k", "]"}], 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"piv", "[", 
              RowBox[{"[", "k", "]"}], "]"}]}], ")"}], 
           RowBox[{"eev", "[", 
            RowBox[{"[", "k", "]"}], "]"}]}]}]}]}], " ", "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Welfare", " ", "with", " ", "externaltieis"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Welfv", " ", "=", " ", 
       RowBox[{"Wv", " ", "-", " ", 
        RowBox[{"\[Delta]gv", " ", "piv", " ", "gv"}], " ", "-", " ", 
        RowBox[{"\[Delta]ev", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "piv"}], ")"}], " ", "eev"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Optimal", " ", "region", " ", "specific", " ", "taxes"}], " ",
        "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"tgoptv", "=", "\[Delta]gv"}], " ", ";", "\[IndentingNewLine]", 
      
      RowBox[{"teoptv", "=", " ", "\[Delta]ev"}], " ", ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Optimal", " ", "single", " ", "tax"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"singletg", "=", 
       RowBox[{"\[Delta]gv", ".", " ", "weight"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"singlete", "=", 
       RowBox[{"\[Delta]ev", " ", ".", "weight"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Welfare", " ", "at", " ", "optimal", " ", "region", " ", "specific", 
        " ", "taxes"}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"For", " ", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", " ", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"tg", "[", "k", "]"}], "=", 
          RowBox[{"tgoptv", "[", 
           RowBox[{"[", "k", "]"}], "]"}]}], ";", 
         RowBox[{
          RowBox[{"te", "[", "k", "]"}], "=", 
          RowBox[{"teoptv", "[", 
           RowBox[{"[", "k", "]"}], "]"}]}]}]}], " ", "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"optwel", "=", 
       RowBox[{"Welfv", " ", ".", " ", "weight"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Welfare", " ", ",", "  ", 
        RowBox[{"PI", 
         RowBox[{"(", 
          RowBox[{"1", "-", "PI"}], ")"}]}], ",", " ", 
        RowBox[{
        "and", " ", "PI", "  ", "at", " ", "optimal", " ", "single", " ", 
         "subsidy"}]}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"For", " ", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", " ", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"tg", "[", "k", "]"}], "=", "singletg"}], ";", 
         RowBox[{
          RowBox[{"te", "[", "k", "]"}], "=", "singlete"}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"singwel", " ", "=", 
       RowBox[{"Welfv", " ", ".", " ", "weight"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"piprodsingle", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Simplify", "[", 
         RowBox[{"piv", 
          RowBox[{"(", 
           RowBox[{"1", "-", "piv"}], ")"}]}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"pisingle", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Simplify", "[", "piv", "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Exact", " ", "Welfare", " ", "Difference"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"exact", "=", " ", 
       RowBox[{"(", 
        RowBox[{"optwel", "-", "singwel"}], ")"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Display", " ", "Results"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\< A Versus B \>\"", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<Probability at optimal single tax \>\"", ",", "pisingle"}], "]"}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Welfare from state  \>\"", ",", 
        RowBox[{"optwel", "*", "c"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Welfare from uniform  \>\"", ",", " ", 
        RowBox[{"AccountingForm", "[", " ", 
         RowBox[{
          RowBox[{"singwel", "*", "c"}], ",", "10"}], "]"}]}], "]"}], ";", 
      "\n", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Exact  \>\"", ",", " ", 
        RowBox[{"exact", "*", "c"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Optimal Single Tax Gas, Electric \>\"", ",", 
        RowBox[{"singletg", "*", "c"}], ",", "\"\< \>\"", ",", " ", 
        RowBox[{"singlete", "*", "c"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"NumberForm", "[", 
        RowBox[{"singwel", ",", "10"}], "]"}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Gas miles driven single tax \>\"", ",", 
        RowBox[{"gv", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
      
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Electric miles driven single tax\>\"", ",", 
        RowBox[{"eev", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", "pisingle"}], ";",
       "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"3", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{"singletg", "*", "c"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"4", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{"exact", "*", "c"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"10", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{"singwel", "*", "c"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"12", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{"singlete", "*", "c"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"13", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{"singwel", "*", "c"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"14", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{"optwel", "*", "c"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**"}], "******)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"**", 
        RowBox[{
        "*", "        ", "Compare", " ", "A", " ", "with", " ", "C"}]}], 
       "                                         ", "***)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**"}], "******)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Clear", "[", 
       RowBox[{
       "thedatin", ",", "thedat", ",", "\[Delta]gv", ",", "\[Delta]ev", ",", 
        "m", ",", " ", "Sv", ",", "Rv", ",", "s", ",", "R", ",", "gv", ",", 
        "eev", ",", "xgv", ",", "xev", ",", "Lgv", ",", "Lev", ",", "Wv", ",",
         "piv", ",", "Welfv", ",", "soptv", ",", "singlev", ",", "optwel", 
        ",", "singwel", ",", "piprodsingle", ",", "pisingle", ",", "exact", 
        ",", "tgoptv", ",", "teoptv", ",", "singletg", ",", "singlete", ",", 
        "Tgv", ",", "Tev", ",", "te", ",", "tg"}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "county", " ", "data", " ", "missing", " ", "value", " ", "for", " ", 
        "clifton", " ", "forge", " ", "va"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"give", " ", "it", " ", "zero"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"thedatin", "=", 
       RowBox[{"Import", "[", 
        RowBox[{"\"\<C-county_full.xlsx\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Data\>\"", ",", "1"}], "}"}]}], "]"}]}], ";", " ", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"get", " ", "rid", " ", "of", " ", "column", " ", "labels"}], 
       " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"thedat", "=", 
       RowBox[{"Drop", "[", 
        RowBox[{"thedatin", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"weight", " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
         RowBox[{"[", "7", "]"}], "]"}], "/", 
        RowBox[{"Total", " ", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "7", "]"}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"\[Delta]gv", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "5", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", 
       RowBox[{"damages", " ", "per", " ", "mile", " ", "gas"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"\[Delta]ev", " ", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "6", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", 
       RowBox[{"damages", " ", "per", " ", "mile", " ", "electric"}], " ", 
       "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Print", "[", "thedat", "]"}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Number", " ", "of", " ", "Regions"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"m", "=", 
       RowBox[{"Length", "[", "\[Delta]gv", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"weight", "=", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{
           RowBox[{"1", "/", "m"}], ",", "m"}], "]"}]}], ";"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"VECTOR", " ", "VARIABLES"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"Generic", " ", "Tax", " ", "On", " ", "Gas"}], ",", " ", 
        "Electricity"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Tgv", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"tg", ",", "m"}], "]"}]}], ";", "    ", "\[IndentingNewLine]", 
      RowBox[{"Tev", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"te", ",", "m"}], "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Goverment", " ", "Revenue"}], " ", "*)"}], 
      "\[IndentingNewLine]", "     ", "\[IndentingNewLine]", 
      RowBox[{"Rv", " ", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"R", ",", "m"}], "]"}]}], " ", ";", "          ", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"CONSUMER", "'"}], "S", " ", "WELFARE", " ", "MAXIMIZING", 
        " ", "PROBLEM"}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Problem", " ", "given", " ", "here", " ", "for", " ", "reference"}], 
       " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Use", " ", "solution", " ", "directly"}], "            ", 
       "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Ug", "=", 
        RowBox[{
         RowBox[{"x", " ", "+", " ", 
          RowBox[{
           RowBox[{"g", "^", 
            RowBox[{"(", "\[Gamma]g", ")"}]}], " ", "\[IndentingNewLine]", 
           " ", "Ue"}]}], " ", "=", 
         RowBox[{
          RowBox[{"x", "+", " ", 
           RowBox[{
            RowBox[{"ee", "^", 
             RowBox[{"(", "\[Gamma]e", ")"}]}], "\[IndentingNewLine]", 
            "\[IndentingNewLine]", " ", "Lg"}]}], " ", "=", " ", 
          RowBox[{
           RowBox[{"Ug", " ", "-", " ", 
            RowBox[{"\[Lambda]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"pt", " ", "x"}], " ", "+", " ", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"pg", "+", "tg"}], ")"}], "g"}], "  ", "-", " ", 
               RowBox[{"pt", " ", "T"}], "+", " ", "pc", "-", " ", "R"}], 
              ")"}], "\[IndentingNewLine]", "ansg"}]}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"D", "[", 
                   RowBox[{"Lg", ",", "x"}], "]"}], "\[Equal]", "0"}], ",", 
                 RowBox[{
                  RowBox[{"D", "[", 
                   RowBox[{"Lg", ",", "g"}], "]"}], "\[Equal]", "0"}], ",", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"pt", " ", "x"}], " ", "+", " ", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"pg", " ", "+", "tg"}], ")"}], " ", "g"}], " ", 
                   "-", " ", 
                   RowBox[{"pt", " ", "T"}], "+", "pc", " ", "-", "R"}], 
                  "\[Equal]", "0"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"x", ",", "g", ",", "\[Lambda]"}], "}"}]}], "]"}], 
             " ", "\[IndentingNewLine]", "Vg"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Simplify", "[", 
                RowBox[{"Ug", "/.", "ansg"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
              "\[IndentingNewLine]", " ", "Le"}], " ", "=", " ", 
             RowBox[{
              RowBox[{"Ue", " ", "-", " ", 
               RowBox[{"\[Lambda]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"pt", " ", "x"}], " ", "+", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"pe", "+", "te"}], ")"}], "ee"}], " ", "-", " ", 
                  RowBox[{"pt", " ", "T"}], "+", " ", "p", "+", " ", "s", " ",
                   "-", "R"}], ")"}], "\[IndentingNewLine]", "anse"}]}], "=", 
              
              RowBox[{
               RowBox[{
                RowBox[{"Solve", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"D", "[", 
                    RowBox[{"Le", ",", "x"}], "]"}], "\[Equal]", "0"}], ",", 
                    RowBox[{
                    RowBox[{"D", "[", 
                    RowBox[{"Le", ",", "ee"}], "]"}], "\[Equal]", "0"}], ",", 
                    
                    RowBox[{
                    RowBox[{
                    RowBox[{"pt", " ", "x"}], " ", "+", " ", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"pe", " ", "+", "te"}], ")"}], " ", "ee"}], " ", 
                    "-", " ", 
                    RowBox[{"pt", " ", "T"}], "+", "p", " ", "+", "s", " ", 
                    "-", "R"}], "\[Equal]", "0"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"x", ",", "ee", ",", "\[Lambda]"}], "}"}]}], "]"}],
                 " ", "\[IndentingNewLine]", "Ve"}], "=", 
               RowBox[{
                RowBox[{"Simplify", "[", 
                 RowBox[{"Ue", "/.", "anse"}], "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}]}]}]}]}]}]}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"x", ",", " ", 
        RowBox[{
        "g", " ", "and", " ", "e", " ", "as", " ", "a", " ", "function", " ", 
         "of", " ", "the", " ", "parameters"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"gv", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"pt", " ", "kg"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"pg", "+", "Tgv"}], ")"}]}], " ", ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"1", "/", "\[Gamma]g"}], ")"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"eev", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"pt", " ", "ke"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"pe", "+", "Tev"}], ")"}]}], " ", ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"1", "/", "\[Gamma]e"}], ")"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"xgv", "=", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "pc"}], " ", "+", " ", "Rv", " ", "+", " ", 
          RowBox[{"pt", " ", "T"}], " ", "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"pg", "+", "Tgv"}], ")"}], " ", "gv"}]}], ")"}], " ", "/",
         "pt"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"xev", "=", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "p"}], "  ", "+", " ", "Rv", " ", "+", " ", 
          RowBox[{"pt", " ", "T"}], " ", "-", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"pe", "+", "Tev"}], ")"}], " ", "eev"}]}], ")"}], "/", 
        "pt"}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Indirect", " ", "utility"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Lgv", "=", " ", 
       RowBox[{"xgv", " ", "+", 
        RowBox[{"kg", "  ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"gv", "^", 
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Gamma]g"}], ")"}]}], "-", "1"}], ")"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Gamma]g"}], ")"}]}]}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Lev", "=", " ", 
       RowBox[{"xev", " ", "+", 
        RowBox[{"ke", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"eev", "^", 
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Gamma]e"}], ")"}]}], "-", "1"}], ")"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Gamma]e"}], ")"}]}]}], "+", " ", "A"}]}], ";",
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Expected", " ", "welfare", " ", "without", " ", "externalties"}], " ",
        "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Wv", "=", 
       RowBox[{"\[Mu]", " ", 
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "+", 
          RowBox[{"Exp", "[", 
           RowBox[{"Lev", "/", "\[Mu]"}], "]"}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Probability", " ", "of", " ", "selecting", " ", "electric", " ", 
        "car"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Use", " ", "simplify", " ", "to", " ", "eliminate", " ", "R", " ", 
        "term", " ", "in", " ", "pi"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"It", " ", "cancels", " ", 
        RowBox[{"out", " ", "!"}]}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"piv", "=", 
       RowBox[{"Simplify", "[", 
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Exp", "[", 
            RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "+", 
           RowBox[{"Exp", "[", 
            RowBox[{"Lev", "/", "\[Mu]"}], "]"}]}], ")"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Government", " ", "Revenue"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Rv", "=", 
        RowBox[{
         RowBox[{"tg", " ", "pi", " ", "g"}], " ", "+", " ", 
         RowBox[{"te", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "pi"}], ")"}], " ", "e"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", 
        RowBox[{
         RowBox[{"R", "[", "k", "]"}], "=", " ", 
         RowBox[{
          RowBox[{
           RowBox[{"tg", "[", "k", "]"}], " ", 
           RowBox[{"piv", "[", 
            RowBox[{"[", "k", "]"}], "]"}], " ", 
           RowBox[{"gv", "[", 
            RowBox[{"[", "k", "]"}], "]"}]}], " ", "+", " ", 
          RowBox[{
           RowBox[{"te", "[", "k", "]"}], 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"piv", "[", 
              RowBox[{"[", "k", "]"}], "]"}]}], ")"}], 
           RowBox[{"eev", "[", 
            RowBox[{"[", "k", "]"}], "]"}]}]}]}]}], " ", "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Welfare", " ", "with", " ", "externaltieis"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Welfv", " ", "=", " ", 
       RowBox[{"Wv", " ", "-", " ", 
        RowBox[{"\[Delta]gv", " ", "piv", " ", "gv"}], " ", "-", " ", 
        RowBox[{"\[Delta]ev", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "piv"}], ")"}], " ", "eev"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Optimal", " ", "region", " ", "specific", " ", "taxes"}], " ",
        "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"tgoptv", "=", "\[Delta]gv"}], " ", ";", "\[IndentingNewLine]", 
      
      RowBox[{"teoptv", "=", " ", "\[Delta]ev"}], " ", ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Optimal", " ", "single", " ", "tax"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"singletg", "=", 
       RowBox[{"\[Delta]gv", ".", " ", "weight"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"singlete", "=", 
       RowBox[{"\[Delta]ev", " ", ".", "weight"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Welfare", " ", "at", " ", "optimal", " ", "region", " ", "specific", 
        " ", "taxes"}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"For", " ", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", " ", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"tg", "[", "k", "]"}], "=", 
          RowBox[{"tgoptv", "[", 
           RowBox[{"[", "k", "]"}], "]"}]}], ";", 
         RowBox[{
          RowBox[{"te", "[", "k", "]"}], "=", 
          RowBox[{"teoptv", "[", 
           RowBox[{"[", "k", "]"}], "]"}]}]}]}], " ", "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"optwel", "=", 
       RowBox[{"Welfv", " ", ".", " ", "weight"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Welfare", " ", ",", "  ", 
        RowBox[{"PI", 
         RowBox[{"(", 
          RowBox[{"1", "-", "PI"}], ")"}]}], ",", " ", 
        RowBox[{
        "and", " ", "PI", "  ", "at", " ", "optimal", " ", "single", " ", 
         "subsidy"}]}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"For", " ", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", " ", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"tg", "[", "k", "]"}], "=", "singletg"}], ";", 
         RowBox[{
          RowBox[{"te", "[", "k", "]"}], "=", "singlete"}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"singwel", " ", "=", 
       RowBox[{"Welfv", " ", ".", " ", "weight"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"piprodsingle", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Simplify", "[", 
         RowBox[{"piv", 
          RowBox[{"(", 
           RowBox[{"1", "-", "piv"}], ")"}]}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"pisingle", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Simplify", "[", "piv", "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Exact", " ", "Welfare", " ", "Difference"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"exact", "=", " ", 
       RowBox[{"(", 
        RowBox[{"optwel", "-", "singwel"}], ")"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Display", " ", "Results"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\< A Versus C \>\"", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<Probability at optimal single subsidy \>\"", ",", "pisingle"}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Welfare from county full \>\"", ",", 
        RowBox[{"optwel", "*", "c"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Welfare from uniform full  \>\"", ",", " ", 
        RowBox[{"singwel", "*", "c"}]}], "]"}], ";", "\n", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Exact  \>\"", ",", " ", 
        RowBox[{"exact", "*", "c"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Optimal Single Tax Gas, Electric \>\"", ",", 
        RowBox[{"singletg", "*", "c"}], ",", "\"\< \>\"", ",", " ", 
        RowBox[{"singlete", "*", "c"}]}], "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"5", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{"exact", "*", "c"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"11", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{"singwel", "*", "c"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"15", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{"optwel", "*", "c"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**"}], "******)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"**", 
        RowBox[{
        "*", "        ", "Compare", " ", "A", " ", "with", " ", "D"}]}], 
       "                                         ", "***)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**"}], "******)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Clear", "[", 
       RowBox[{
       "thedatin", ",", "thedat", ",", "\[Delta]gv", ",", "\[Delta]ev", ",", 
        "m", ",", " ", "Sv", ",", "Rv", ",", "s", ",", "R", ",", "gv", ",", 
        "eev", ",", "xgv", ",", "xev", ",", "Lgv", ",", "Lev", ",", "Wv", ",",
         "piv", ",", "Welfv", ",", "soptv", ",", "singlev", ",", "optwel", 
        ",", "singwel", ",", "piprodsingle", ",", "pisingle", ",", "exact", 
        ",", "tgoptv", ",", "teoptv", ",", "singletg", ",", "singlete", ",", 
        "Tgv", ",", "Tev", ",", "te", ",", "tg"}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "county", " ", "data", " ", "missing", " ", "value", " ", "for", " ", 
        "clifton", " ", "forge", " ", "va"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"give", " ", "it", " ", "zero"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"thedatin", "=", 
       RowBox[{"Import", "[", 
        RowBox[{"\"\<D-states_native.xlsx\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Data\>\"", ",", "1"}], "}"}]}], "]"}]}], ";", " ", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"get", " ", "rid", " ", "of", " ", "column", " ", "labels"}], 
       " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"thedat", "=", 
       RowBox[{"Drop", "[", 
        RowBox[{"thedatin", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"native", " ", 
        RowBox[{"damages", ":", " ", 
         RowBox[{"used", " ", "by", " ", "states"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"weight", " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
         RowBox[{"[", "5", "]"}], "]"}], "/", 
        RowBox[{"Total", " ", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "5", "]"}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"\[Delta]gvn", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "3", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", 
       RowBox[{
       "native", " ", "damages", " ", "per", " ", "mile", " ", "gas"}], " ", 
       "*)"}], "\[IndentingNewLine]", 
      RowBox[{"\[Delta]evn", " ", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "4", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", 
       RowBox[{
       "native", " ", "damages", " ", "per", " ", "mile", " ", "electric"}], 
       " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Full", " ", 
        RowBox[{"damages", ":", " ", 
         RowBox[{"used", " ", "by", " ", "federal"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"fulldatin", "=", 
       RowBox[{"Import", "[", 
        RowBox[{"\"\<B-states_full.xlsx\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Data\>\"", ",", "1"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"thefull", "=", 
       RowBox[{"Drop", "[", 
        RowBox[{"fulldatin", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
      
      RowBox[{"\[Delta]gv", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thefull", "]"}], "[", 
          RowBox[{"[", "3", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", " ", 
       RowBox[{"full", " ", "damages", " ", "per", " ", "mile", " ", "gas"}], 
       " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"\[Delta]ev", " ", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thefull", "]"}], "[", 
          RowBox[{"[", "4", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", " ", 
       RowBox[{
       "full", " ", "damages", " ", "per", " ", "mile", " ", "electric"}], 
       " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Number", " ", "of", " ", "Regions"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"m", "=", 
       RowBox[{"Length", "[", "\[Delta]gv", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"weight", "=", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{
           RowBox[{"1", "/", "m"}], ",", "m"}], "]"}]}], ";"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"VECTOR", " ", "VARIABLES"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"Generic", " ", "Tax", " ", "On", " ", "Gas"}], ",", " ", 
        "Electricity"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Tgv", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"tg", ",", "m"}], "]"}]}], ";", "    ", "\[IndentingNewLine]", 
      RowBox[{"Tev", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"te", ",", "m"}], "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Goverment", " ", "Revenue"}], " ", "*)"}], 
      "\[IndentingNewLine]", "     ", "\[IndentingNewLine]", 
      RowBox[{"Rv", " ", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"R", ",", "m"}], "]"}]}], " ", ";", "          ", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"CONSUMER", "'"}], "S", " ", "WELFARE", " ", "MAXIMIZING", 
        " ", "PROBLEM"}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Problem", " ", "given", " ", "here", " ", "for", " ", "reference"}], 
       " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Use", " ", "solution", " ", "directly"}], "            ", 
       "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Ug", "=", 
        RowBox[{
         RowBox[{"x", " ", "+", " ", 
          RowBox[{
           RowBox[{"g", "^", 
            RowBox[{"(", "\[Gamma]g", ")"}]}], " ", "\[IndentingNewLine]", 
           " ", "Ue"}]}], " ", "=", 
         RowBox[{
          RowBox[{"x", "+", " ", 
           RowBox[{
            RowBox[{"ee", "^", 
             RowBox[{"(", "\[Gamma]e", ")"}]}], "\[IndentingNewLine]", 
            "\[IndentingNewLine]", " ", "Lg"}]}], " ", "=", " ", 
          RowBox[{
           RowBox[{"Ug", " ", "-", " ", 
            RowBox[{"\[Lambda]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"pt", " ", "x"}], " ", "+", " ", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"pg", "+", "tg"}], ")"}], "g"}], "  ", "-", " ", 
               RowBox[{"pt", " ", "T"}], "+", " ", "pc", "-", " ", "R"}], 
              ")"}], "\[IndentingNewLine]", "ansg"}]}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"D", "[", 
                   RowBox[{"Lg", ",", "x"}], "]"}], "\[Equal]", "0"}], ",", 
                 RowBox[{
                  RowBox[{"D", "[", 
                   RowBox[{"Lg", ",", "g"}], "]"}], "\[Equal]", "0"}], ",", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"pt", " ", "x"}], " ", "+", " ", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"pg", " ", "+", "tg"}], ")"}], " ", "g"}], " ", 
                   "-", " ", 
                   RowBox[{"pt", " ", "T"}], "+", "pc", " ", "-", "R"}], 
                  "\[Equal]", "0"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"x", ",", "g", ",", "\[Lambda]"}], "}"}]}], "]"}], 
             " ", "\[IndentingNewLine]", "Vg"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Simplify", "[", 
                RowBox[{"Ug", "/.", "ansg"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
              "\[IndentingNewLine]", " ", "Le"}], " ", "=", " ", 
             RowBox[{
              RowBox[{"Ue", " ", "-", " ", 
               RowBox[{"\[Lambda]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"pt", " ", "x"}], " ", "+", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"pe", "+", "te"}], ")"}], "ee"}], " ", "-", " ", 
                  RowBox[{"pt", " ", "T"}], "+", " ", "p", "+", " ", "s", " ",
                   "-", "R"}], ")"}], "\[IndentingNewLine]", "anse"}]}], "=", 
              
              RowBox[{
               RowBox[{
                RowBox[{"Solve", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"D", "[", 
                    RowBox[{"Le", ",", "x"}], "]"}], "\[Equal]", "0"}], ",", 
                    RowBox[{
                    RowBox[{"D", "[", 
                    RowBox[{"Le", ",", "ee"}], "]"}], "\[Equal]", "0"}], ",", 
                    
                    RowBox[{
                    RowBox[{
                    RowBox[{"pt", " ", "x"}], " ", "+", " ", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"pe", " ", "+", "te"}], ")"}], " ", "ee"}], " ", 
                    "-", " ", 
                    RowBox[{"pt", " ", "T"}], "+", "p", " ", "+", "s", " ", 
                    "-", "R"}], "\[Equal]", "0"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"x", ",", "ee", ",", "\[Lambda]"}], "}"}]}], "]"}],
                 " ", "\[IndentingNewLine]", "Ve"}], "=", 
               RowBox[{
                RowBox[{"Simplify", "[", 
                 RowBox[{"Ue", "/.", "anse"}], "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}]}]}]}]}]}]}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"x", ",", " ", 
        RowBox[{
        "g", " ", "and", " ", "e", " ", "as", " ", "a", " ", "function", " ", 
         "of", " ", "the", " ", "parameters"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"x", ",", " ", 
        RowBox[{
        "g", " ", "and", " ", "e", " ", "as", " ", "a", " ", "function", " ", 
         "of", " ", "the", " ", "parameters"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"gv", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"pt", " ", "kg"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"pg", "+", "Tgv"}], ")"}]}], " ", ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"1", "/", "\[Gamma]g"}], ")"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"eev", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"pt", " ", "ke"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"pe", "+", "Tev"}], ")"}]}], " ", ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"1", "/", "\[Gamma]e"}], ")"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"xgv", "=", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "pc"}], " ", "+", " ", "Rv", " ", "+", " ", 
          RowBox[{"pt", " ", "T"}], " ", "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"pg", "+", "Tgv"}], ")"}], " ", "gv"}]}], ")"}], " ", "/",
         "pt"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"xev", "=", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "p"}], "  ", "+", " ", "Rv", " ", "+", " ", 
          RowBox[{"pt", " ", "T"}], " ", "-", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"pe", "+", "Tev"}], ")"}], " ", "eev"}]}], ")"}], "/", 
        "pt"}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Indirect", " ", "utility"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Lgv", "=", " ", 
       RowBox[{"xgv", " ", "+", 
        RowBox[{"kg", "  ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"gv", "^", 
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Gamma]g"}], ")"}]}], "-", "1"}], ")"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Gamma]g"}], ")"}]}]}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Lev", "=", " ", 
       RowBox[{"xev", " ", "+", 
        RowBox[{"ke", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"eev", "^", 
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Gamma]e"}], ")"}]}], "-", "1"}], ")"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Gamma]e"}], ")"}]}]}], "+", " ", "A"}]}], ";",
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Expected", " ", "welfare", " ", "without", " ", "externalties"}], " ",
        "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Wv", "=", 
       RowBox[{"\[Mu]", " ", 
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "+", 
          RowBox[{"Exp", "[", 
           RowBox[{"Lev", "/", "\[Mu]"}], "]"}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Probability", " ", "of", " ", "selecting", " ", "electric", " ", 
        "car"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Use", " ", "simplify", " ", "to", " ", "eliminate", " ", "R", " ", 
        "term", " ", "in", " ", "pi"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"It", " ", "cancels", " ", 
        RowBox[{"out", " ", "!"}]}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"piv", "=", 
       RowBox[{"Simplify", "[", 
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Exp", "[", 
            RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "+", 
           RowBox[{"Exp", "[", 
            RowBox[{"Lev", "/", "\[Mu]"}], "]"}]}], ")"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Government", " ", "Revenue"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Rv", "=", 
        RowBox[{
         RowBox[{"tg", " ", "pi", " ", "g"}], " ", "+", " ", 
         RowBox[{"te", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "pi"}], ")"}], " ", "e"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", 
        RowBox[{
         RowBox[{"R", "[", "k", "]"}], "=", " ", 
         RowBox[{
          RowBox[{
           RowBox[{"tg", "[", "k", "]"}], " ", 
           RowBox[{"piv", "[", 
            RowBox[{"[", "k", "]"}], "]"}], " ", 
           RowBox[{"gv", "[", 
            RowBox[{"[", "k", "]"}], "]"}]}], " ", "+", " ", 
          RowBox[{
           RowBox[{"te", "[", "k", "]"}], 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"piv", "[", 
              RowBox[{"[", "k", "]"}], "]"}]}], ")"}], 
           RowBox[{"eev", "[", 
            RowBox[{"[", "k", "]"}], "]"}]}]}]}]}], " ", "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Welfare", " ", "with", " ", "externaltieis"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"must", " ", "evaluate", " ", "at", " ", "full"}], " ", "*)"}],
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Welfv", " ", "=", " ", 
       RowBox[{"Wv", " ", "-", " ", 
        RowBox[{"\[Delta]gv", " ", "piv", " ", "gv"}], " ", "-", " ", 
        RowBox[{"\[Delta]ev", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "piv"}], ")"}], " ", "eev"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Optimal", " ", "region", " ", "specific", " ", "taxes"}], " ",
        "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Use", " ", "Native", " ", "Damages"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"tgoptv", "=", "\[Delta]gvn"}], ";", "\[IndentingNewLine]", 
      RowBox[{"teoptv", "=", " ", "\[Delta]evn"}], " ", ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Optimal", " ", "single", " ", "tax"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Use", " ", "Full", " ", "Damages"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"singletg", "=", 
       RowBox[{"\[Delta]gv", ".", " ", "weight"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"singlete", "=", 
       RowBox[{"\[Delta]ev", " ", ".", "weight"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Welfare", " ", "at", " ", "optimal", " ", "region", " ", "specific", 
        " ", "taxes"}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"For", " ", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", " ", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"tg", "[", "k", "]"}], "=", 
          RowBox[{"tgoptv", "[", 
           RowBox[{"[", "k", "]"}], "]"}]}], ";", 
         RowBox[{
          RowBox[{"te", "[", "k", "]"}], "=", 
          RowBox[{"teoptv", "[", 
           RowBox[{"[", "k", "]"}], "]"}]}]}]}], " ", "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"optwel", "=", 
       RowBox[{"Welfv", " ", ".", " ", "weight"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Welfare", " ", ",", "  ", 
        RowBox[{"PI", 
         RowBox[{"(", 
          RowBox[{"1", "-", "PI"}], ")"}]}], ",", " ", 
        RowBox[{
        "and", " ", "PI", "  ", "at", " ", "optimal", " ", "single", " ", 
         "subsidy"}]}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"For", " ", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", " ", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"tg", "[", "k", "]"}], "=", "singletg"}], ";", 
         RowBox[{
          RowBox[{"te", "[", "k", "]"}], "=", "singlete"}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"singwel", " ", "=", 
       RowBox[{"Welfv", " ", ".", " ", "weight"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"piprodsingle", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Simplify", "[", 
         RowBox[{"piv", 
          RowBox[{"(", 
           RowBox[{"1", "-", "piv"}], ")"}]}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"pisingle", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Simplify", "[", "piv", "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Exact", " ", "Welfare", " ", "Difference"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"exact", "=", " ", 
       RowBox[{"(", 
        RowBox[{"optwel", "-", "singwel"}], ")"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Display", " ", "Results"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\< A Versus D \>\"", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<Probability at optimal single subsidy \>\"", ",", "pisingle"}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Welfare from state native \>\"", ",", 
        RowBox[{"optwel", "*", "c"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Welfare from uniform full \>\"", ",", " ", 
        RowBox[{"singwel", "*", "c"}]}], "]"}], ";", "\n", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<Exact: Welfare from State native - Welfare from uniform full  \
\>\"", ",", " ", 
        RowBox[{"exact", "*", "c"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Optimal Single Tax Gas, Electric \>\"", ",", 
        RowBox[{"singletg", "*", "c"}], ",", "\"\< \>\"", ",", " ", 
        RowBox[{"singlete", "*", "c"}]}], "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"6", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{"exact", "*", "c"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"16", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{"optwel", "*", "c"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**"}], "******)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"**", 
        RowBox[{
        "*", "        ", "Compare", " ", "A", " ", "with", " ", "E"}]}], 
       "                                         ", "***)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**"}], "******)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Clear", "[", 
       RowBox[{
       "thedatin", ",", "thedat", ",", "\[Delta]gv", ",", "\[Delta]ev", ",", 
        "m", ",", " ", "Sv", ",", "Rv", ",", "s", ",", "R", ",", "gv", ",", 
        "eev", ",", "xgv", ",", "xev", ",", "Lgv", ",", "Lev", ",", "Wv", ",",
         "piv", ",", "Welfv", ",", "soptv", ",", "singlev", ",", "optwel", 
        ",", "singwel", ",", "piprodsingle", ",", "pisingle", ",", "exact", 
        ",", "tgoptv", ",", "teoptv", ",", "singletg", ",", "singlete", ",", 
        "Tgv", ",", "Tev", ",", "te", ",", "tg"}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "county", " ", "data", " ", "missing", " ", "value", " ", "for", " ", 
        "clifton", " ", "forge", " ", "va"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"give", " ", "it", " ", "zero"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"thedatin", "=", 
       RowBox[{"Import", "[", 
        RowBox[{"\"\<E-county_native.xlsx\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Data\>\"", ",", "1"}], "}"}]}], "]"}]}], ";", " ", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"get", " ", "rid", " ", "of", " ", "column", " ", "labels"}], 
       " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"thedat", "=", 
       RowBox[{"Drop", "[", 
        RowBox[{"thedatin", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"weight", " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
         RowBox[{"[", "7", "]"}], "]"}], "/", 
        RowBox[{"Total", " ", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "7", "]"}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"\[Delta]gvn", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "5", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", 
       RowBox[{"damages", " ", "per", " ", "mile", " ", "gas"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"\[Delta]evn", " ", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "6", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", 
       RowBox[{"damages", " ", "per", " ", "mile", " ", "electric"}], " ", 
       "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Print", "[", "thedat", "]"}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Full", " ", 
        RowBox[{"damages", ":", " ", 
         RowBox[{"used", " ", "by", " ", "federal"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"fulldatin", "=", 
       RowBox[{"Import", "[", 
        RowBox[{"\"\<C-county_full.xlsx\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Data\>\"", ",", "1"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"thefull", "=", 
       RowBox[{"Drop", "[", 
        RowBox[{"fulldatin", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
      
      RowBox[{"\[Delta]gv", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thefull", "]"}], "[", 
          RowBox[{"[", "5", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", " ", 
       RowBox[{"full", " ", "damages", " ", "per", " ", "mile", " ", "gas"}], 
       " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"\[Delta]ev", " ", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thefull", "]"}], "[", 
          RowBox[{"[", "6", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", " ", 
       RowBox[{
       "full", " ", "damages", " ", "per", " ", "mile", " ", "electric"}], 
       " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Number", " ", "of", " ", "Regions"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"m", "=", 
       RowBox[{"Length", "[", "\[Delta]gv", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"weight", "=", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{
           RowBox[{"1", "/", "m"}], ",", "m"}], "]"}]}], ";"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"VECTOR", " ", "VARIABLES"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"Generic", " ", "Tax", " ", "On", " ", "Gas"}], ",", " ", 
        "Electricity"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Tgv", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"tg", ",", "m"}], "]"}]}], ";", "    ", "\[IndentingNewLine]", 
      RowBox[{"Tev", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"te", ",", "m"}], "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Goverment", " ", "Revenue"}], " ", "*)"}], 
      "\[IndentingNewLine]", "     ", "\[IndentingNewLine]", 
      RowBox[{"Rv", " ", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"R", ",", "m"}], "]"}]}], " ", ";", "          ", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"CONSUMER", "'"}], "S", " ", "WELFARE", " ", "MAXIMIZING", 
        " ", "PROBLEM"}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Problem", " ", "given", " ", "here", " ", "for", " ", "reference"}], 
       " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Use", " ", "solution", " ", "directly"}], "            ", 
       "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Ug", "=", 
        RowBox[{
         RowBox[{"x", " ", "+", " ", 
          RowBox[{
           RowBox[{"g", "^", 
            RowBox[{"(", "\[Gamma]g", ")"}]}], " ", "\[IndentingNewLine]", 
           " ", "Ue"}]}], " ", "=", 
         RowBox[{
          RowBox[{"x", "+", " ", 
           RowBox[{
            RowBox[{"ee", "^", 
             RowBox[{"(", "\[Gamma]e", ")"}]}], "\[IndentingNewLine]", 
            "\[IndentingNewLine]", " ", "Lg"}]}], " ", "=", " ", 
          RowBox[{
           RowBox[{"Ug", " ", "-", " ", 
            RowBox[{"\[Lambda]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"pt", " ", "x"}], " ", "+", " ", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"pg", "+", "tg"}], ")"}], "g"}], "  ", "-", " ", 
               RowBox[{"pt", " ", "T"}], "+", " ", "pc", "-", " ", "R"}], 
              ")"}], "\[IndentingNewLine]", "ansg"}]}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"D", "[", 
                   RowBox[{"Lg", ",", "x"}], "]"}], "\[Equal]", "0"}], ",", 
                 RowBox[{
                  RowBox[{"D", "[", 
                   RowBox[{"Lg", ",", "g"}], "]"}], "\[Equal]", "0"}], ",", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"pt", " ", "x"}], " ", "+", " ", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"pg", " ", "+", "tg"}], ")"}], " ", "g"}], " ", 
                   "-", " ", 
                   RowBox[{"pt", " ", "T"}], "+", "pc", " ", "-", "R"}], 
                  "\[Equal]", "0"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"x", ",", "g", ",", "\[Lambda]"}], "}"}]}], "]"}], 
             " ", "\[IndentingNewLine]", "Vg"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Simplify", "[", 
                RowBox[{"Ug", "/.", "ansg"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
              "\[IndentingNewLine]", " ", "Le"}], " ", "=", " ", 
             RowBox[{
              RowBox[{"Ue", " ", "-", " ", 
               RowBox[{"\[Lambda]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"pt", " ", "x"}], " ", "+", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"pe", "+", "te"}], ")"}], "ee"}], " ", "-", " ", 
                  RowBox[{"pt", " ", "T"}], "+", " ", "p", "+", " ", "s", " ",
                   "-", "R"}], ")"}], "\[IndentingNewLine]", "anse"}]}], "=", 
              
              RowBox[{
               RowBox[{
                RowBox[{"Solve", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"D", "[", 
                    RowBox[{"Le", ",", "x"}], "]"}], "\[Equal]", "0"}], ",", 
                    RowBox[{
                    RowBox[{"D", "[", 
                    RowBox[{"Le", ",", "ee"}], "]"}], "\[Equal]", "0"}], ",", 
                    
                    RowBox[{
                    RowBox[{
                    RowBox[{"pt", " ", "x"}], " ", "+", " ", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"pe", " ", "+", "te"}], ")"}], " ", "ee"}], " ", 
                    "-", " ", 
                    RowBox[{"pt", " ", "T"}], "+", "p", " ", "+", "s", " ", 
                    "-", "R"}], "\[Equal]", "0"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"x", ",", "ee", ",", "\[Lambda]"}], "}"}]}], "]"}],
                 " ", "\[IndentingNewLine]", "Ve"}], "=", 
               RowBox[{
                RowBox[{"Simplify", "[", 
                 RowBox[{"Ue", "/.", "anse"}], "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}]}]}]}]}]}]}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"x", ",", " ", 
        RowBox[{
        "g", " ", "and", " ", "e", " ", "as", " ", "a", " ", "function", " ", 
         "of", " ", "the", " ", "parameters"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"gv", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"pt", " ", "kg"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"pg", "+", "Tgv"}], ")"}]}], " ", ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"1", "/", "\[Gamma]g"}], ")"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"eev", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"pt", " ", "ke"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"pe", "+", "Tev"}], ")"}]}], " ", ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"1", "/", "\[Gamma]e"}], ")"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"xgv", "=", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "pc"}], " ", "+", " ", "Rv", " ", "+", " ", 
          RowBox[{"pt", " ", "T"}], " ", "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"pg", "+", "Tgv"}], ")"}], " ", "gv"}]}], ")"}], " ", "/",
         "pt"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"xev", "=", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "p"}], "  ", "+", " ", "Rv", " ", "+", " ", 
          RowBox[{"pt", " ", "T"}], " ", "-", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"pe", "+", "Tev"}], ")"}], " ", "eev"}]}], ")"}], "/", 
        "pt"}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Indirect", " ", "utility"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Lgv", "=", " ", 
       RowBox[{"xgv", " ", "+", 
        RowBox[{"kg", "  ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"gv", "^", 
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Gamma]g"}], ")"}]}], "-", "1"}], ")"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Gamma]g"}], ")"}]}]}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Lev", "=", " ", 
       RowBox[{"xev", " ", "+", 
        RowBox[{"ke", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"eev", "^", 
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Gamma]e"}], ")"}]}], "-", "1"}], ")"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Gamma]e"}], ")"}]}]}], "+", " ", "A"}]}], ";",
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Expected", " ", "welfare", " ", "without", " ", "externalties"}], " ",
        "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Wv", "=", 
       RowBox[{"\[Mu]", " ", 
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "+", 
          RowBox[{"Exp", "[", 
           RowBox[{"Lev", "/", "\[Mu]"}], "]"}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Probability", " ", "of", " ", "selecting", " ", "electric", " ", 
        "car"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Use", " ", "simplify", " ", "to", " ", "eliminate", " ", "R", " ", 
        "term", " ", "in", " ", "pi"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"It", " ", "cancels", " ", 
        RowBox[{"out", " ", "!"}]}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"piv", "=", 
       RowBox[{"Simplify", "[", 
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Exp", "[", 
            RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "+", 
           RowBox[{"Exp", "[", 
            RowBox[{"Lev", "/", "\[Mu]"}], "]"}]}], ")"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Government", " ", "Revenue"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Rv", "=", 
        RowBox[{
         RowBox[{"tg", " ", "pi", " ", "g"}], " ", "+", " ", 
         RowBox[{"te", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "pi"}], ")"}], " ", "e"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", 
        RowBox[{
         RowBox[{"R", "[", "k", "]"}], "=", " ", 
         RowBox[{
          RowBox[{
           RowBox[{"tg", "[", "k", "]"}], " ", 
           RowBox[{"piv", "[", 
            RowBox[{"[", "k", "]"}], "]"}], " ", 
           RowBox[{"gv", "[", 
            RowBox[{"[", "k", "]"}], "]"}]}], " ", "+", " ", 
          RowBox[{
           RowBox[{"te", "[", "k", "]"}], 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"piv", "[", 
              RowBox[{"[", "k", "]"}], "]"}]}], ")"}], 
           RowBox[{"eev", "[", 
            RowBox[{"[", "k", "]"}], "]"}]}]}]}]}], " ", "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Welfare", " ", "with", " ", "externaltieis"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Welfv", " ", "=", " ", 
       RowBox[{"Wv", " ", "-", " ", 
        RowBox[{"\[Delta]gv", " ", "piv", " ", "gv"}], " ", "-", " ", 
        RowBox[{"\[Delta]ev", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "piv"}], ")"}], " ", "eev"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Optimal", " ", "region", " ", "specific", " ", "taxes"}], " ",
        "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Use", " ", "Native", " ", "Damages"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"tgoptv", "=", "\[Delta]gvn"}], ";", "\[IndentingNewLine]", 
      RowBox[{"teoptv", "=", " ", "\[Delta]evn"}], " ", ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Optimal", " ", "single", " ", "tax"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Use", " ", "Full", " ", "Damages"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"singletg", "=", 
       RowBox[{"\[Delta]gv", ".", " ", "weight"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"singlete", "=", 
       RowBox[{"\[Delta]ev", " ", ".", "weight"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Welfare", " ", "at", " ", "optimal", " ", "region", " ", "specific", 
        " ", "subsidies"}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"For", " ", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", " ", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"tg", "[", "k", "]"}], "=", 
          RowBox[{"tgoptv", "[", 
           RowBox[{"[", "k", "]"}], "]"}]}], ";", 
         RowBox[{
          RowBox[{"te", "[", "k", "]"}], "=", 
          RowBox[{"teoptv", "[", 
           RowBox[{"[", "k", "]"}], "]"}]}]}]}], " ", "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"optwel", "=", 
       RowBox[{"Welfv", " ", ".", " ", "weight"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Welfare", " ", ",", "  ", 
        RowBox[{"PI", 
         RowBox[{"(", 
          RowBox[{"1", "-", "PI"}], ")"}]}], ",", " ", 
        RowBox[{
        "and", " ", "PI", "  ", "at", " ", "optimal", " ", "single", " ", 
         "subsidy"}]}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"For", " ", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", " ", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"tg", "[", "k", "]"}], "=", "singletg"}], ";", 
         RowBox[{
          RowBox[{"te", "[", "k", "]"}], "=", "singlete"}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"singwel", " ", "=", 
       RowBox[{"Welfv", " ", ".", " ", "weight"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"piprodsingle", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Simplify", "[", 
         RowBox[{"piv", 
          RowBox[{"(", 
           RowBox[{"1", "-", "piv"}], ")"}]}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"pisingle", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Simplify", "[", "piv", "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Exact", " ", "Welfare", " ", "Difference"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"exact", "=", " ", 
       RowBox[{"(", 
        RowBox[{"optwel", "-", "singwel"}], ")"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Display", " ", "Results"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\< A Versus E \>\"", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<Probability at optimal single subsidy \>\"", ",", "pisingle"}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<Exact: Welfare county native - welfare uniform full  \>\"", ",", 
        " ", 
        RowBox[{"exact", "*", "c"}]}], " ", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Welfare from county native \>\"", ",", 
        RowBox[{"optwel", "*", "c"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Welfare from uniform full  \>\"", ",", " ", 
        RowBox[{"singwel", "*", "c"}]}], "]"}], ";", "\n", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Optimal Single Tax Gas, Electric \>\"", ",", 
        RowBox[{"singletg", "*", "c"}], ",", "\"\< \>\"", ",", " ", 
        RowBox[{"singlete", "*", "c"}]}], "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"7", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{"exact", "*", "c"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"8", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{"results", "[", 
         RowBox[{"[", 
          RowBox[{"4", ",", 
           RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "-", 
        RowBox[{"results", "[", 
         RowBox[{"[", 
          RowBox[{"6", ",", 
           RowBox[{"index", "+", "1"}]}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"9", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{"results", "[", 
         RowBox[{"[", 
          RowBox[{"5", ",", 
           RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "-", 
        RowBox[{"results", "[", 
         RowBox[{"[", 
          RowBox[{"7", ",", 
           RowBox[{"index", "+", "1"}]}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"17", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{"optwel", "*", "c"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], 
   
   RowBox[{"(*", " ", 
    RowBox[{"end", " ", "mu", " ", "loop"}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1"}], "]"}], "]"}], "=", "\"\< \>\""}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{"themus", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", 
     RowBox[{"themus", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "4"}], "]"}], "]"}], "=", 
     RowBox[{"themus", "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Prob of Adoption Gas Car\>\""}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "1"}], "]"}], "]"}], "=", " ", 
     "\"\<Optimal Uniform Gas Tax \>\""}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Welfare B-A: state specific vs uniform\>\""}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"5", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Welfare C-A: county specific vs uniform\>\""}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"6", ",", "1"}], "]"}], "]"}], "=", " ", 
     "\"\<Welfare D-A: state specific (native) vs uniform\>\""}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"7", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Welfare E-A: county specific (native) vs uniform\>\""}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"8", ",", "1"}], "]"}], "]"}], "=", " ", 
     "\"\<Welfare B-D: state specific vs state specific (native)\>\""}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"9", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Welfare C-E: county specific vs county specific (native)\>\""}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"10", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Welfare A: uniform tax on gas, electric across all states\>\""}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"11", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Welfare A': uniform tax  on gas, electric across all \
counties\>\""}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"12", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Optimal Uniform Electric Tax\>\""}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"13", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Welfare A: Federal \>\""}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"14", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Welfare B: State \>\""}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"15", ",", "1"}], "]"}], "]"}], "=", " ", 
     "\"\<Welfare C: County \>\""}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"16", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Welfare D: State Native \>\""}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"17", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Welfare E: County Native \>\""}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", "results", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Export", "[", 
    RowBox[{
    "\"\<welfare_big_tax2011.xlsx\>\"", ",", "results", ",", "\"\<XLSX\>\""}],
     "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.610980900518314*^9, 3.6109809018852577`*^9}, {
   3.6109809764110537`*^9, 3.610981015425366*^9}, {3.610981135980332*^9, 
   3.610981141738846*^9}, {3.610981187338464*^9, 3.6109816571664057`*^9}, {
   3.6109816891734447`*^9, 3.6109821770651703`*^9}, {3.610982228852769*^9, 
   3.610982386941235*^9}, {3.610982418939946*^9, 3.6109824420429583`*^9}, {
   3.61098253261613*^9, 3.610982638306422*^9}, {3.61098267343849*^9, 
   3.6109827280907507`*^9}, {3.6109828003882713`*^9, 3.610983046705741*^9}, {
   3.61098307771229*^9, 3.610983172015789*^9}, {3.6109832043149548`*^9, 
   3.6109832573445873`*^9}, {3.6109833311010313`*^9, 3.610983452771846*^9}, {
   3.610983484407063*^9, 3.610983686550385*^9}, {3.6109837644422817`*^9, 
   3.610983798376422*^9}, {3.610983864218069*^9, 3.6109839455161858`*^9}, {
   3.61098398430768*^9, 3.61098398721798*^9}, {3.61098404049782*^9, 
   3.610984067394224*^9}, {3.610984106057178*^9, 3.610984109209504*^9}, {
   3.6109841592949953`*^9, 3.610984326385331*^9}, {3.6109843647845917`*^9, 
   3.610984523793378*^9}, {3.6109845557262163`*^9, 3.61098458655881*^9}, {
   3.610984632613119*^9, 3.610984761998685*^9}, {3.61098488388039*^9, 
   3.610984900586199*^9}, {3.6109857224214363`*^9, 3.610985730213636*^9}, {
   3.61098577458806*^9, 3.6109857970305758`*^9}, {3.610985841261018*^9, 
   3.6109858758629847`*^9}, 3.610985921683413*^9, {3.610985990802561*^9, 
   3.610986063636125*^9}, {3.610986105986088*^9, 3.610986124732169*^9}, {
   3.610986244677313*^9, 3.610986289114002*^9}, 3.611054311017941*^9, {
   3.6110543429988003`*^9, 3.611054363011042*^9}, 3.61105442568427*^9, {
   3.611054460506353*^9, 3.611054575108971*^9}, {3.611054757013483*^9, 
   3.61105479995434*^9}, {3.6110548647301207`*^9, 3.6110549421327*^9}, {
   3.61105499986604*^9, 3.6110550274231157`*^9}, {3.611055074686529*^9, 
   3.611055133091919*^9}, {3.61105516861237*^9, 3.611055381945657*^9}, 
   3.6110554122247057`*^9, {3.61105548115583*^9, 3.6110555979914217`*^9}, {
   3.6110556586225224`*^9, 3.611055838174179*^9}, {3.6110558722626667`*^9, 
   3.6110559491284657`*^9}, {3.611056017679894*^9, 3.611056063558569*^9}, {
   3.6110561181820793`*^9, 3.6110564246072817`*^9}, {3.611056516724223*^9, 
   3.611056520166006*^9}, {3.611056560689189*^9, 3.611056640373776*^9}, {
   3.611056691019245*^9, 3.611056751936221*^9}, {3.611056800251309*^9, 
   3.611056806947529*^9}, {3.611057049436596*^9, 3.611057145659349*^9}, {
   3.611057198702064*^9, 3.611057209164892*^9}, {3.6110572398248863`*^9, 
   3.611057309311469*^9}, {3.611057380670196*^9, 3.611057397509762*^9}, {
   3.611057872710017*^9, 3.611057895734671*^9}, {3.611057981162518*^9, 
   3.611058020895988*^9}, {3.61105808544413*^9, 3.611058098396516*^9}, {
   3.611058137244137*^9, 3.6110581489439497`*^9}, {3.611058179865505*^9, 
   3.611058188368331*^9}, {3.611058368855933*^9, 3.611058459666366*^9}, {
   3.6110585062678223`*^9, 3.611058515088179*^9}, {3.611058683046193*^9, 
   3.6110587239552393`*^9}, {3.611058778366829*^9, 3.611058798748345*^9}, {
   3.6110592792409573`*^9, 3.6110593709868507`*^9}, {3.611059474161882*^9, 
   3.611059474873088*^9}, {3.611059613052334*^9, 3.6110596156827507`*^9}, {
   3.611059795555162*^9, 3.611059832000711*^9}, {3.611059875969754*^9, 
   3.611059890765058*^9}, {3.6110600140743*^9, 3.611060016615623*^9}, 
   3.611060078119891*^9, {3.611060305747816*^9, 3.611060366047469*^9}, {
   3.611060525505487*^9, 3.611060539505165*^9}, {3.611061133353788*^9, 
   3.611061135678336*^9}, {3.611061388217597*^9, 3.611061553468246*^9}, {
   3.611061802619281*^9, 3.611061806384762*^9}, {3.6110618847990303`*^9, 
   3.611061885348996*^9}, {3.6110619288889*^9, 3.611061934203059*^9}, {
   3.611061984396843*^9, 3.611061985300633*^9}, {3.611067971614702*^9, 
   3.611067974632325*^9}, {3.611319512720009*^9, 3.611319546410624*^9}, {
   3.61131961002393*^9, 3.611319705314157*^9}, {3.6113197711753407`*^9, 
   3.611319786223588*^9}, {3.611319822644743*^9, 3.611319827795464*^9}, {
   3.6113198671390133`*^9, 3.611320050138114*^9}, {3.61132008412216*^9, 
   3.611320159873168*^9}, {3.611320213916152*^9, 3.611320278392947*^9}, {
   3.6113203217671213`*^9, 3.611320328702923*^9}, {3.611320367927764*^9, 
   3.6113203983865147`*^9}, {3.611320532825408*^9, 3.611320557999262*^9}, {
   3.6113206256909943`*^9, 3.611320663143249*^9}, 3.611321072431799*^9, {
   3.611321144306485*^9, 3.611321148298451*^9}, {3.6113211858579082`*^9, 
   3.6113212319500723`*^9}, {3.61132130659006*^9, 3.611321356515328*^9}, 
   3.611321386529532*^9, {3.611321430047812*^9, 3.61132146658957*^9}, {
   3.6113215197553263`*^9, 3.611321543792676*^9}, {3.611321623841846*^9, 
   3.6113216259248867`*^9}, {3.611321697436728*^9, 3.6113217005894737`*^9}, {
   3.611321825408422*^9, 3.611321827847822*^9}, {3.61132237894659*^9, 
   3.611322412998003*^9}, {3.611322496516427*^9, 3.611322502497974*^9}, 
   3.611322562631959*^9, {3.611322687571451*^9, 3.611322700328417*^9}, {
   3.611323034436426*^9, 3.611323082857182*^9}, 3.61132312982672*^9, {
   3.611323224852324*^9, 3.611323225458325*^9}, {3.61132763980155*^9, 
   3.611327649219719*^9}, {3.611659985084736*^9, 3.611659991594058*^9}, {
   3.6116600326472*^9, 3.611660033192404*^9}, 3.611660090813795*^9, {
   3.612526309944765*^9, 3.6125263342808943`*^9}, {3.612526446222348*^9, 
   3.6125264500842*^9}, {3.612526569586886*^9, 3.612526601985379*^9}, {
   3.612526823883008*^9, 3.612526860805152*^9}, {3.6125268997768717`*^9, 
   3.612526900503441*^9}, {3.612526937962799*^9, 3.6125269715728073`*^9}, {
   3.612527214788402*^9, 3.612527247528837*^9}, {3.61252954819729*^9, 
   3.612529559923532*^9}, {3.612613446810451*^9, 3.612613489640402*^9}, {
   3.612613833014206*^9, 3.612614023464635*^9}, {3.61261411150105*^9, 
   3.612614214861607*^9}, {3.6126142675509872`*^9, 3.612614374780232*^9}, {
   3.61261442811273*^9, 3.612614467958548*^9}, {3.6126145427492*^9, 
   3.612614610791911*^9}, {3.6126146512962637`*^9, 3.612614747496957*^9}, {
   3.612614785541457*^9, 3.6126148417295437`*^9}, {3.6126149283507833`*^9, 
   3.6126149469293127`*^9}, {3.6126149824348173`*^9, 3.612615241311158*^9}, {
   3.612615287638681*^9, 3.612615296244676*^9}, {3.612615617127616*^9, 
   3.6126156721078663`*^9}, {3.6126157154743767`*^9, 3.612616027444479*^9}, {
   3.612616063789765*^9, 3.6126160683945293`*^9}, {3.612616100792452*^9, 
   3.612616104752514*^9}, {3.6126161392736893`*^9, 3.6126161846448097`*^9}, {
   3.61261622183322*^9, 3.612616299200717*^9}, {3.612616417624689*^9, 
   3.61261666504961*^9}, {3.612616739314258*^9, 3.6126168255792437`*^9}, {
   3.61261687592382*^9, 3.612616947621271*^9}, {3.612617099561679*^9, 
   3.6126171020817337`*^9}, {3.6126173923303337`*^9, 3.612617456869245*^9}, {
   3.6126174941519613`*^9, 3.612617520234988*^9}, {3.612617981513691*^9, 
   3.612618216156472*^9}, {3.6126182791129417`*^9, 3.6126182925062*^9}, {
   3.612792547404724*^9, 3.6127926974770317`*^9}, {3.612793018688951*^9, 
   3.6127930496295013`*^9}, {3.61279310849338*^9, 3.6127931858947067`*^9}, {
   3.6127932175524197`*^9, 3.612793296304721*^9}, {3.612793337133355*^9, 
   3.612793347164297*^9}, {3.61279354875417*^9, 3.612793549335825*^9}, {
   3.6127940183248243`*^9, 3.612794019737689*^9}, {3.612794841890973*^9, 
   3.612794850957213*^9}, {3.612794884816527*^9, 3.6127948884801073`*^9}, 
   3.612794936279647*^9, {3.612795142539584*^9, 3.612795168203403*^9}, {
   3.61279523203472*^9, 3.612795314698825*^9}, {3.612795372143816*^9, 
   3.612795405215826*^9}, {3.612795439334689*^9, 3.6127955450886993`*^9}, {
   3.612795581156312*^9, 3.612795602509164*^9}, {3.6127956339967012`*^9, 
   3.612795665577153*^9}, {3.6127957093278427`*^9, 3.612795757117972*^9}, {
   3.612795934616168*^9, 3.612796034484971*^9}, {3.6127982626517982`*^9, 
   3.612798269727521*^9}, {3.6127983034520082`*^9, 3.612798303855345*^9}, {
   3.6128846510131807`*^9, 3.6128848681833553`*^9}, {3.620658783396055*^9, 
   3.620658784416985*^9}, {3.6206590894620028`*^9, 3.620659089947106*^9}, {
   3.620992768632959*^9, 3.620992779567295*^9}, {3.631374909656713*^9, 
   3.631374911013371*^9}, {3.631630893299061*^9, 3.63163096203723*^9}, 
   3.632143859530759*^9, {3.632592128530216*^9, 3.632592128983131*^9}, {
   3.6325922157589893`*^9, 3.632592391332026*^9}, {3.6328486963393307`*^9, 
   3.632848718534566*^9}, 3.6328490152609386`*^9, {3.6330864379836407`*^9, 
   3.633086440407654*^9}, {3.633605506193142*^9, 3.63360554281654*^9}, {
   3.633605583510923*^9, 3.633605650756978*^9}, {3.633605722032487*^9, 
   3.633605821976565*^9}, {3.633605913697825*^9, 3.633605947717345*^9}, {
   3.6336059934261427`*^9, 3.6336060109773808`*^9}, {3.6336088124142847`*^9, 
   3.63360881928266*^9}, {3.6338763394426117`*^9, 3.633876458212723*^9}, {
   3.634398802692107*^9, 3.634398903366969*^9}, {3.634996220485935*^9, 
   3.634996292103682*^9}, {3.6349964029086742`*^9, 3.6349964120008583`*^9}, {
   3.6349964859836283`*^9, 3.634996521242947*^9}, 3.635000425154031*^9, 
   3.6350008753918753`*^9, {3.658077231406966*^9, 3.6580772541967497`*^9}, {
   3.658077568992894*^9, 3.658077571589274*^9}, {3.659704094275099*^9, 
   3.659704140810912*^9}, {3.659713214970232*^9, 3.6597132254935617`*^9}, {
   3.674557342843563*^9, 3.674557343241934*^9}, 3.674557626710432*^9}],

Cell[BoxData["1.02`"], "Output",
 CellChangeTimes->{
  3.611057898308585*^9, 3.611057996229701*^9, 3.611058112073534*^9, {
   3.611058380251402*^9, 3.611058461974218*^9}, 3.611058524042748*^9, 
   3.611059373607765*^9, 3.6110594773396997`*^9, 3.611059618627243*^9, 
   3.61105982026546*^9, {3.6110598795475597`*^9, 3.611059893812447*^9}, 
   3.6110600273430157`*^9, 3.611060080718577*^9, {3.611060352616242*^9, 
   3.611060382165983*^9}, 3.611060542358573*^9, 3.611061138029195*^9, 
   3.6110614561274853`*^9, 3.611061525637685*^9, {3.611061556654544*^9, 
   3.6110615734397163`*^9}, {3.611061814688031*^9, 3.611061842889675*^9}, 
   3.6110618877261143`*^9, 3.611061940076025*^9, 3.611062244347458*^9, 
   3.611067977137841*^9, {3.611319947879558*^9, 3.611319979262575*^9}, 
   3.611320065274014*^9, 3.611320118398333*^9, 3.611320162230113*^9, 
   3.611320284731204*^9, 3.6113204013925037`*^9, {3.6113205376746683`*^9, 
   3.6113205665899067`*^9}, 3.611320666433518*^9, 3.611321154919878*^9, {
   3.611321211882049*^9, 3.611321234806746*^9}, {3.611321313292583*^9, 
   3.6113213606793833`*^9}, {3.611321455399179*^9, 3.611321468797062*^9}, {
   3.611321535501436*^9, 3.611321546615385*^9}, 3.611321628239285*^9, 
   3.611321705014036*^9, 3.611322504734293*^9, 3.611322564701857*^9, 
   3.611322703102584*^9, 3.6113230412567863`*^9, 3.61132765427317*^9, 
   3.611659994447823*^9, 3.6116600369772053`*^9, 3.6116600949418087`*^9, 
   3.6125268711778793`*^9, 3.612526905078992*^9, 3.61252699214542*^9, 
   3.612527261318284*^9, 3.612529563073154*^9, 3.612614046370076*^9, 
   3.612614220193791*^9, 3.612614384390292*^9, 3.612614472270536*^9, 
   3.612614613408866*^9, {3.612614817566716*^9, 3.612614844879161*^9}, 
   3.612617053306816*^9, 3.612617106193083*^9, 3.612617544906761*^9, 
   3.61261834328504*^9, 3.612792703196203*^9, 3.612793355392211*^9, 
   3.612794025818077*^9, 3.612794854207396*^9, 3.6127948923473997`*^9, 
   3.612794941237402*^9, 3.612796251539843*^9, 3.612866935790411*^9, 
   3.612884910323057*^9, 3.621768606271896*^9, 3.627309528121737*^9, 
   3.631631466581436*^9, 3.632481253955922*^9, 3.632584510632539*^9, 
   3.6325924131995087`*^9, 3.632848721596401*^9, 3.632849019714581*^9, 
   3.6330871486853647`*^9, 3.633606083232152*^9, 3.633608823408917*^9, 
   3.6338764675990562`*^9, 3.634398945821261*^9, 3.634996295042865*^9, 
   3.634996528783494*^9, 3.635000428475781*^9, 3.658077264882564*^9, 
   3.6580775769076347`*^9, 3.659704164945818*^9, 3.661009192474753*^9, 
   3.661084880147097*^9, 3.673958405445744*^9}],

Cell[BoxData["\<\"/Users/andrewjyates/Dropbox/electric cars/welfare\"\>"], \
"Output",
 CellChangeTimes->{
  3.611057898308585*^9, 3.611057996229701*^9, 3.611058112073534*^9, {
   3.611058380251402*^9, 3.611058461974218*^9}, 3.611058524042748*^9, 
   3.611059373607765*^9, 3.6110594773396997`*^9, 3.611059618627243*^9, 
   3.61105982026546*^9, {3.6110598795475597`*^9, 3.611059893812447*^9}, 
   3.6110600273430157`*^9, 3.611060080718577*^9, {3.611060352616242*^9, 
   3.611060382165983*^9}, 3.611060542358573*^9, 3.611061138029195*^9, 
   3.6110614561274853`*^9, 3.611061525637685*^9, {3.611061556654544*^9, 
   3.6110615734397163`*^9}, {3.611061814688031*^9, 3.611061842889675*^9}, 
   3.6110618877261143`*^9, 3.611061940076025*^9, 3.611062244347458*^9, 
   3.611067977137841*^9, {3.611319947879558*^9, 3.611319979262575*^9}, 
   3.611320065274014*^9, 3.611320118398333*^9, 3.611320162230113*^9, 
   3.611320284731204*^9, 3.6113204013925037`*^9, {3.6113205376746683`*^9, 
   3.6113205665899067`*^9}, 3.611320666433518*^9, 3.611321154919878*^9, {
   3.611321211882049*^9, 3.611321234806746*^9}, {3.611321313292583*^9, 
   3.6113213606793833`*^9}, {3.611321455399179*^9, 3.611321468797062*^9}, {
   3.611321535501436*^9, 3.611321546615385*^9}, 3.611321628239285*^9, 
   3.611321705014036*^9, 3.611322504734293*^9, 3.611322564701857*^9, 
   3.611322703102584*^9, 3.6113230412567863`*^9, 3.61132765427317*^9, 
   3.611659994447823*^9, 3.6116600369772053`*^9, 3.6116600949418087`*^9, 
   3.6125268711778793`*^9, 3.612526905078992*^9, 3.61252699214542*^9, 
   3.612527261318284*^9, 3.612529563073154*^9, 3.612614046370076*^9, 
   3.612614220193791*^9, 3.612614384390292*^9, 3.612614472270536*^9, 
   3.612614613408866*^9, {3.612614817566716*^9, 3.612614844879161*^9}, 
   3.612617053306816*^9, 3.612617106193083*^9, 3.612617544906761*^9, 
   3.61261834328504*^9, 3.612792703196203*^9, 3.612793355392211*^9, 
   3.612794025818077*^9, 3.612794854207396*^9, 3.6127948923473997`*^9, 
   3.612794941237402*^9, 3.612796251539843*^9, 3.612866935790411*^9, 
   3.612884910323057*^9, 3.621768606271896*^9, 3.627309528121737*^9, 
   3.631631466581436*^9, 3.632481253955922*^9, 3.632584510632539*^9, 
   3.6325924131995087`*^9, 3.632848721596401*^9, 3.632849019714581*^9, 
   3.6330871486853647`*^9, 3.633606083232152*^9, 3.633608823408917*^9, 
   3.6338764675990562`*^9, 3.634398945821261*^9, 3.634996295042865*^9, 
   3.634996528783494*^9, 3.635000428475781*^9, 3.658077264882564*^9, 
   3.6580775769076347`*^9, 3.659704164945818*^9, 3.661009192474753*^9, 
   3.661084880147097*^9, 3.6739584054515676`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.6889478647444098`*^9", ",", "1.6889559733504915`*^9", ",", 
   "1.688967313033398`*^9"}], "}"}]], "Output",
 CellChangeTimes->{
  3.611057898308585*^9, 3.611057996229701*^9, 3.611058112073534*^9, {
   3.611058380251402*^9, 3.611058461974218*^9}, 3.611058524042748*^9, 
   3.611059373607765*^9, 3.6110594773396997`*^9, 3.611059618627243*^9, 
   3.61105982026546*^9, {3.6110598795475597`*^9, 3.611059893812447*^9}, 
   3.6110600273430157`*^9, 3.611060080718577*^9, {3.611060352616242*^9, 
   3.611060382165983*^9}, 3.611060542358573*^9, 3.611061138029195*^9, 
   3.6110614561274853`*^9, 3.611061525637685*^9, {3.611061556654544*^9, 
   3.6110615734397163`*^9}, {3.611061814688031*^9, 3.611061842889675*^9}, 
   3.6110618877261143`*^9, 3.611061940076025*^9, 3.611062244347458*^9, 
   3.611067977137841*^9, {3.611319947879558*^9, 3.611319979262575*^9}, 
   3.611320065274014*^9, 3.611320118398333*^9, 3.611320162230113*^9, 
   3.611320284731204*^9, 3.6113204013925037`*^9, {3.6113205376746683`*^9, 
   3.6113205665899067`*^9}, 3.611320666433518*^9, 3.611321154919878*^9, {
   3.611321211882049*^9, 3.611321234806746*^9}, {3.611321313292583*^9, 
   3.6113213606793833`*^9}, {3.611321455399179*^9, 3.611321468797062*^9}, {
   3.611321535501436*^9, 3.611321546615385*^9}, 3.611321628239285*^9, 
   3.611321705014036*^9, 3.611322504734293*^9, 3.611322564701857*^9, 
   3.611322703102584*^9, 3.6113230412567863`*^9, 3.61132765427317*^9, 
   3.611659994447823*^9, 3.6116600369772053`*^9, 3.6116600949418087`*^9, 
   3.6125268711778793`*^9, 3.612526905078992*^9, 3.61252699214542*^9, 
   3.612527261318284*^9, 3.612529563073154*^9, 3.612614046370076*^9, 
   3.612614220193791*^9, 3.612614384390292*^9, 3.612614472270536*^9, 
   3.612614613408866*^9, {3.612614817566716*^9, 3.612614844879161*^9}, 
   3.612617053306816*^9, 3.612617106193083*^9, 3.612617544906761*^9, 
   3.61261834328504*^9, 3.612792703196203*^9, 3.612793355392211*^9, 
   3.612794025818077*^9, 3.612794854207396*^9, 3.6127948923473997`*^9, 
   3.612794941237402*^9, 3.612796251539843*^9, 3.612866935790411*^9, 
   3.612884910323057*^9, 3.621768606271896*^9, 3.627309528121737*^9, 
   3.631631466581436*^9, 3.632481253955922*^9, 3.632584510632539*^9, 
   3.6325924131995087`*^9, 3.632848721596401*^9, 3.632849019714581*^9, 
   3.6330871486853647`*^9, 3.633606083232152*^9, 3.633608823408917*^9, 
   3.6338764675990562`*^9, 3.634398945821261*^9, 3.634996295042865*^9, 
   3.634996528783494*^9, 3.635000428475781*^9, 3.658077264882564*^9, 
   3.6580775769076347`*^9, 3.659704164945818*^9, 3.661009192474753*^9, 
   3.661084880147097*^9, 3.67395840545632*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "10664.019305026453`", ",", "10507.638476642005`", ",", 
   "10037.279770879111`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.611057898308585*^9, 3.611057996229701*^9, 3.611058112073534*^9, {
   3.611058380251402*^9, 3.611058461974218*^9}, 3.611058524042748*^9, 
   3.611059373607765*^9, 3.6110594773396997`*^9, 3.611059618627243*^9, 
   3.61105982026546*^9, {3.6110598795475597`*^9, 3.611059893812447*^9}, 
   3.6110600273430157`*^9, 3.611060080718577*^9, {3.611060352616242*^9, 
   3.611060382165983*^9}, 3.611060542358573*^9, 3.611061138029195*^9, 
   3.6110614561274853`*^9, 3.611061525637685*^9, {3.611061556654544*^9, 
   3.6110615734397163`*^9}, {3.611061814688031*^9, 3.611061842889675*^9}, 
   3.6110618877261143`*^9, 3.611061940076025*^9, 3.611062244347458*^9, 
   3.611067977137841*^9, {3.611319947879558*^9, 3.611319979262575*^9}, 
   3.611320065274014*^9, 3.611320118398333*^9, 3.611320162230113*^9, 
   3.611320284731204*^9, 3.6113204013925037`*^9, {3.6113205376746683`*^9, 
   3.6113205665899067`*^9}, 3.611320666433518*^9, 3.611321154919878*^9, {
   3.611321211882049*^9, 3.611321234806746*^9}, {3.611321313292583*^9, 
   3.6113213606793833`*^9}, {3.611321455399179*^9, 3.611321468797062*^9}, {
   3.611321535501436*^9, 3.611321546615385*^9}, 3.611321628239285*^9, 
   3.611321705014036*^9, 3.611322504734293*^9, 3.611322564701857*^9, 
   3.611322703102584*^9, 3.6113230412567863`*^9, 3.61132765427317*^9, 
   3.611659994447823*^9, 3.6116600369772053`*^9, 3.6116600949418087`*^9, 
   3.6125268711778793`*^9, 3.612526905078992*^9, 3.61252699214542*^9, 
   3.612527261318284*^9, 3.612529563073154*^9, 3.612614046370076*^9, 
   3.612614220193791*^9, 3.612614384390292*^9, 3.612614472270536*^9, 
   3.612614613408866*^9, {3.612614817566716*^9, 3.612614844879161*^9}, 
   3.612617053306816*^9, 3.612617106193083*^9, 3.612617544906761*^9, 
   3.61261834328504*^9, 3.612792703196203*^9, 3.612793355392211*^9, 
   3.612794025818077*^9, 3.612794854207396*^9, 3.6127948923473997`*^9, 
   3.612794941237402*^9, 3.612796251539843*^9, 3.612866935790411*^9, 
   3.612884910323057*^9, 3.621768606271896*^9, 3.627309528121737*^9, 
   3.631631466581436*^9, 3.632481253955922*^9, 3.632584510632539*^9, 
   3.6325924131995087`*^9, 3.632848721596401*^9, 3.632849019714581*^9, 
   3.6330871486853647`*^9, 3.633606083232152*^9, 3.633608823408917*^9, 
   3.6338764675990562`*^9, 3.634398945821261*^9, 3.634996295042865*^9, 
   3.634996528783494*^9, 3.635000428475781*^9, 3.658077264882564*^9, 
   3.6580775769076347`*^9, 3.659704164945818*^9, 3.661009192474753*^9, 
   3.661084880147097*^9, 3.6739584054607697`*^9}],

Cell[CellGroupData[{

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958405492957*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Value for mu \"\>", "\[InvisibleSpace]", 
   "10664.019305026453`"}],
  SequenceForm["Value for mu ", 10664.019305026453`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958405497471*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Value for A \"\>", "\[InvisibleSpace]", 
   "1.6889478647444098`*^9"}],
  SequenceForm["Value for A ", 1.6889478647444098`*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958405502858*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958405508168*^9}],

Cell[BoxData["\<\" A Versus B \"\>"], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958406233239*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single tax \"\>", "\[InvisibleSpace]", 
   "0.9906422801431336815206132677804323237`15.653559774527023"}],
  SequenceForm[
  "Probability at optimal single tax ", 
   0.9906422801431336815206132677804323237`15.653559774527023],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739584062394114`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from state  \"\>", "\[InvisibleSpace]", 
   "2.582259491752283`*^9"}],
  SequenceForm["Welfare from state  ", 2.582259491752283*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958406244911*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform  \"\>", "\[InvisibleSpace]", 
   TagBox[
    InterpretationBox["\<\"2582259487.\"\>",
     2.5822594868893967`*^9,
     AutoDelete->True],
    AccountingForm[#, 10]& ]}],
  SequenceForm["Welfare from uniform  ", 
   AccountingForm[2.5822594868893967`*^9, 10]],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958406250791*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact  \"\>", "\[InvisibleSpace]", "4.862886428833008`"}],
  SequenceForm["Exact  ", 4.862886428833008],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958406256214*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Tax Gas, Electric \"\>", "\[InvisibleSpace]", 
   "0.018583482225913335`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.025884566025155636`"}],
  SequenceForm[
  "Optimal Single Tax Gas, Electric ", 0.018583482225913335`, " ", 
   0.025884566025155636`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739584062616587`*^9}],

Cell[BoxData[
 TagBox[
  InterpretationBox[
   RowBox[{"\<\"2.582259487\"\>", "\[Times]", 
    SuperscriptBox["10", "\<\"9\"\>"]}],
   2.5822594868893967`*^9,
   AutoDelete->True],
  NumberForm[#, 10]& ]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958406267411*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Gas miles driven single tax \"\>", "\[InvisibleSpace]", 
   "139154.73716796332`"}],
  SequenceForm["Gas miles driven single tax ", 139154.73716796332`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958406272876*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Electric miles driven single tax\"\>", "\[InvisibleSpace]", 
   "116694.29729760003`"}],
  SequenceForm["Electric miles driven single tax", 116694.29729760003`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739584062783003`*^9}],

Cell[BoxData["\<\" A Versus C \"\>"], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739584447563763`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single subsidy \"\>", 
   "\[InvisibleSpace]", 
   "0.99064228065554844118526886443996400945`15.653559774518262"}],
  SequenceForm[
  "Probability at optimal single subsidy ", 
   0.99064228065554844118526886443996400945`15.653559774518262],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739584447617292`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from county full \"\>", "\[InvisibleSpace]", 
   "2.5822594976933265`*^9"}],
  SequenceForm["Welfare from county full ", 2.5822594976933265`*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958444766786*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform full  \"\>", "\[InvisibleSpace]", 
   "2.582259486889657`*^9"}],
  SequenceForm["Welfare from uniform full  ", 2.582259486889657*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.67395844477195*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact  \"\>", "\[InvisibleSpace]", "10.803669452667236`"}],
  SequenceForm["Exact  ", 10.803669452667236`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958444777034*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Tax Gas, Electric \"\>", "\[InvisibleSpace]", 
   "0.01858348031236465`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.025884568794634938`"}],
  SequenceForm[
  "Optimal Single Tax Gas, Electric ", 0.01858348031236465, " ", 
   0.025884568794634938`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958444782106*^9}],

Cell[BoxData["\<\" A Versus D \"\>"], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.67395844579961*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single subsidy \"\>", 
   "\[InvisibleSpace]", 
   "0.9906422801431336815206132677804323237`15.653559774527023"}],
  SequenceForm[
  "Probability at optimal single subsidy ", 
   0.9906422801431336815206132677804323237`15.653559774527023],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739584458049183`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from state native \"\>", "\[InvisibleSpace]", 
   "2.5822594265504236`*^9"}],
  SequenceForm["Welfare from state native ", 2.5822594265504236`*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958445809721*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform full \"\>", "\[InvisibleSpace]", 
   "2.5822594868893967`*^9"}],
  SequenceForm["Welfare from uniform full ", 2.5822594868893967`*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958445814374*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact: Welfare from State native - Welfare from uniform full  \
\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "60.33897304534912`"}]}],
  SequenceForm[
  "Exact: Welfare from State native - Welfare from uniform full  ", \
-60.33897304534912],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958445819022*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Tax Gas, Electric \"\>", "\[InvisibleSpace]", 
   "0.018583482225913335`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.025884566025155636`"}],
  SequenceForm[
  "Optimal Single Tax Gas, Electric ", 0.018583482225913335`, " ", 
   0.025884566025155636`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958445823697*^9}],

Cell[BoxData["\<\" A Versus E \"\>"], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958484143723*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single subsidy \"\>", 
   "\[InvisibleSpace]", 
   "0.99064228065554844118526886443996400945`15.653559774518262"}],
  SequenceForm[
  "Probability at optimal single subsidy ", 
   0.99064228065554844118526886443996400945`15.653559774518262],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958484149095*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact: Welfare county native - welfare uniform full  \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"-", "55.151326179504395`"}]}],
  SequenceForm[
  "Exact: Welfare county native - welfare uniform full  ", \
-55.151326179504395`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958484154233*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from county native \"\>", "\[InvisibleSpace]", 
   "2.582259431738331`*^9"}],
  SequenceForm["Welfare from county native ", 2.582259431738331*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958484159309*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform full  \"\>", "\[InvisibleSpace]", 
   "2.582259486889657`*^9"}],
  SequenceForm["Welfare from uniform full  ", 2.582259486889657*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958484164626*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Tax Gas, Electric \"\>", "\[InvisibleSpace]", 
   "0.01858348031236465`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.025884568794634938`"}],
  SequenceForm[
  "Optimal Single Tax Gas, Electric ", 0.01858348031236465, " ", 
   0.025884568794634938`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.67395848416999*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958484175065*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Value for mu \"\>", "\[InvisibleSpace]", 
   "10507.638476642005`"}],
  SequenceForm["Value for mu ", 10507.638476642005`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958484180111*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Value for A \"\>", "\[InvisibleSpace]", 
   "1.6889559733504915`*^9"}],
  SequenceForm["Value for A ", 1.6889559733504915`*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958484184142*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958484188435*^9}],

Cell[BoxData["\<\" A Versus B \"\>"], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739584851333923`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single tax \"\>", "\[InvisibleSpace]", 
   "0.98129073456523775550736488435897088406`15.653559774527023"}],
  SequenceForm[
  "Probability at optimal single tax ", 
   0.98129073456523775550736488435897088406`15.653559774527023],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739584851376534`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from state  \"\>", "\[InvisibleSpace]", 
   "2.5822595916320567`*^9"}],
  SequenceForm["Welfare from state  ", 2.5822595916320567`*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739584851422243`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform  \"\>", "\[InvisibleSpace]", 
   TagBox[
    InterpretationBox["\<\"2582259585.\"\>",
     2.5822595850811424`*^9,
     AutoDelete->True],
    AccountingForm[#, 10]& ]}],
  SequenceForm["Welfare from uniform  ", 
   AccountingForm[2.5822595850811424`*^9, 10]],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739584851464033`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact  \"\>", "\[InvisibleSpace]", "6.550914287567139`"}],
  SequenceForm["Exact  ", 6.550914287567139],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958485150299*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Tax Gas, Electric \"\>", "\[InvisibleSpace]", 
   "0.018583482225913335`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.025884566025155636`"}],
  SequenceForm[
  "Optimal Single Tax Gas, Electric ", 0.018583482225913335`, " ", 
   0.025884566025155636`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739584851543293`*^9}],

Cell[BoxData[
 TagBox[
  InterpretationBox[
   RowBox[{"\<\"2.582259585\"\>", "\[Times]", 
    SuperscriptBox["10", "\<\"9\"\>"]}],
   2.5822595850811424`*^9,
   AutoDelete->True],
  NumberForm[#, 10]& ]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958485158444*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Gas miles driven single tax \"\>", "\[InvisibleSpace]", 
   "139154.73716796332`"}],
  SequenceForm["Gas miles driven single tax ", 139154.73716796332`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958485162899*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Electric miles driven single tax\"\>", "\[InvisibleSpace]", 
   "116694.29729760003`"}],
  SequenceForm["Electric miles driven single tax", 116694.29729760003`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958485167095*^9}],

Cell[BoxData["\<\" A Versus C \"\>"], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.67395852300741*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single subsidy \"\>", 
   "\[InvisibleSpace]", 
   "0.98129073559516125118889754133340645156`15.653559774527023"}],
  SequenceForm[
  "Probability at optimal single subsidy ", 
   0.98129073559516125118889754133340645156`15.653559774527023],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739585230118628`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from county full \"\>", "\[InvisibleSpace]", 
   "2.582259597783847`*^9"}],
  SequenceForm["Welfare from county full ", 2.582259597783847*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739585230161448`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform full  \"\>", "\[InvisibleSpace]", 
   "2.582259585081396`*^9"}],
  SequenceForm["Welfare from uniform full  ", 2.582259585081396*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739585230203047`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact  \"\>", "\[InvisibleSpace]", "12.7024507522583`"}],
  SequenceForm["Exact  ", 12.7024507522583],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958523024461*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Tax Gas, Electric \"\>", "\[InvisibleSpace]", 
   "0.01858348031236465`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.025884568794634938`"}],
  SequenceForm[
  "Optimal Single Tax Gas, Electric ", 0.01858348031236465, " ", 
   0.025884568794634938`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.67395852302875*^9}],

Cell[BoxData["\<\" A Versus D \"\>"], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739585240335407`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single subsidy \"\>", 
   "\[InvisibleSpace]", 
   "0.98129073456523775550736488435897088406`15.653559774527023"}],
  SequenceForm[
  "Probability at optimal single subsidy ", 
   0.98129073456523775550736488435897088406`15.653559774527023],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739585240380583`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from state native \"\>", "\[InvisibleSpace]", 
   "2.582259520917228`*^9"}],
  SequenceForm["Welfare from state native ", 2.582259520917228*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958524042794*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform full \"\>", "\[InvisibleSpace]", 
   "2.5822595850811424`*^9"}],
  SequenceForm["Welfare from uniform full ", 2.5822595850811424`*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958524046968*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact: Welfare from State native - Welfare from uniform full  \
\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "64.1639142036438`"}]}],
  SequenceForm[
  "Exact: Welfare from State native - Welfare from uniform full  ", \
-64.1639142036438],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958524050891*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Tax Gas, Electric \"\>", "\[InvisibleSpace]", 
   "0.018583482225913335`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.025884566025155636`"}],
  SequenceForm[
  "Optimal Single Tax Gas, Electric ", 0.018583482225913335`, " ", 
   0.025884566025155636`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958524055047*^9}],

Cell[BoxData["\<\" A Versus E \"\>"], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739585623245897`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single subsidy \"\>", 
   "\[InvisibleSpace]", 
   "0.98129073559516125118889754133340645156`15.653559774527023"}],
  SequenceForm[
  "Probability at optimal single subsidy ", 
   0.98129073559516125118889754133340645156`15.653559774527023],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958562329156*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact: Welfare county native - welfare uniform full  \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"-", "58.81908464431763`"}]}],
  SequenceForm[
  "Exact: Welfare county native - welfare uniform full  ", -58.81908464431763],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958562333379*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from county native \"\>", "\[InvisibleSpace]", 
   "2.5822595262623115`*^9"}],
  SequenceForm["Welfare from county native ", 2.5822595262623115`*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739585623376303`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform full  \"\>", "\[InvisibleSpace]", 
   "2.582259585081396`*^9"}],
  SequenceForm["Welfare from uniform full  ", 2.582259585081396*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739585623418083`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Tax Gas, Electric \"\>", "\[InvisibleSpace]", 
   "0.01858348031236465`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.025884568794634938`"}],
  SequenceForm[
  "Optimal Single Tax Gas, Electric ", 0.01858348031236465, " ", 
   0.025884568794634938`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.67395856234619*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739585623503838`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Value for mu \"\>", "\[InvisibleSpace]", 
   "10037.279770879111`"}],
  SequenceForm["Value for mu ", 10037.279770879111`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958562354549*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Value for A \"\>", "\[InvisibleSpace]", 
   "1.688967313033398`*^9"}],
  SequenceForm["Value for A ", 1.688967313033398*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958562358671*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958562362767*^9}],

Cell[BoxData["\<\" A Versus B \"\>"], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958563277*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single tax \"\>", "\[InvisibleSpace]", 
   "0.9532764457708938869540278774967143919`15.653559774535784"}],
  SequenceForm[
  "Probability at optimal single tax ", 
   0.9532764457708938869540278774967143919`15.653559774535784],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958563281569*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from state  \"\>", "\[InvisibleSpace]", 
   "2.5822598785961943`*^9"}],
  SequenceForm["Welfare from state  ", 2.5822598785961943`*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958563286481*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform  \"\>", "\[InvisibleSpace]", 
   TagBox[
    InterpretationBox["\<\"2582259867.\"\>",
     2.5822598669158792`*^9,
     AutoDelete->True],
    AccountingForm[#, 10]& ]}],
  SequenceForm["Welfare from uniform  ", 
   AccountingForm[2.5822598669158792`*^9, 10]],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739585632907877`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact  \"\>", "\[InvisibleSpace]", "11.680315017700195`"}],
  SequenceForm["Exact  ", 11.680315017700195`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958563294835*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Tax Gas, Electric \"\>", "\[InvisibleSpace]", 
   "0.018583482225913335`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.025884566025155636`"}],
  SequenceForm[
  "Optimal Single Tax Gas, Electric ", 0.018583482225913335`, " ", 
   0.025884566025155636`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739585632989273`*^9}],

Cell[BoxData[
 TagBox[
  InterpretationBox[
   RowBox[{"\<\"2.582259867\"\>", "\[Times]", 
    SuperscriptBox["10", "\<\"9\"\>"]}],
   2.5822598669158792`*^9,
   AutoDelete->True],
  NumberForm[#, 10]& ]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958563303149*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Gas miles driven single tax \"\>", "\[InvisibleSpace]", 
   "139154.73716796332`"}],
  SequenceForm["Gas miles driven single tax ", 139154.73716796332`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958563307501*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Electric miles driven single tax\"\>", "\[InvisibleSpace]", 
   "116694.29729760003`"}],
  SequenceForm["Electric miles driven single tax", 116694.29729760003`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958563311809*^9}],

Cell[BoxData["\<\" A Versus C \"\>"], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739586014252367`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single subsidy \"\>", 
   "\[InvisibleSpace]", 
   "0.95327644838663259539486954395102590432`15.653559774535784"}],
  SequenceForm[
  "Probability at optimal single subsidy ", 
   0.95327644838663259539486954395102590432`15.653559774535784],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739586014306087`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from county full \"\>", "\[InvisibleSpace]", 
   "2.582259885393054`*^9"}],
  SequenceForm["Welfare from county full ", 2.582259885393054*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958601436315*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform full  \"\>", "\[InvisibleSpace]", 
   "2.5822598669161177`*^9"}],
  SequenceForm["Welfare from uniform full  ", 2.5822598669161177`*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958601441618*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact  \"\>", "\[InvisibleSpace]", "18.47693634033203`"}],
  SequenceForm["Exact  ", 18.47693634033203],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958601446858*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Tax Gas, Electric \"\>", "\[InvisibleSpace]", 
   "0.01858348031236465`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.025884568794634938`"}],
  SequenceForm[
  "Optimal Single Tax Gas, Electric ", 0.01858348031236465, " ", 
   0.025884568794634938`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958601452173*^9}],

Cell[BoxData["\<\" A Versus D \"\>"], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958602437826*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single subsidy \"\>", 
   "\[InvisibleSpace]", 
   "0.9532764457708938869540278774967143919`15.653559774535784"}],
  SequenceForm[
  "Probability at optimal single subsidy ", 
   0.9532764457708938869540278774967143919`15.653559774535784],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739586024429007`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from state native \"\>", "\[InvisibleSpace]", 
   "2.582259791257885`*^9"}],
  SequenceForm["Welfare from state native ", 2.582259791257885*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739586024482183`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform full \"\>", "\[InvisibleSpace]", 
   "2.5822598669158792`*^9"}],
  SequenceForm["Welfare from uniform full ", 2.5822598669158792`*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739586024533243`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact: Welfare from State native - Welfare from uniform full  \
\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "75.6579942703247`"}]}],
  SequenceForm[
  "Exact: Welfare from State native - Welfare from uniform full  ", \
-75.6579942703247],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958602458811*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Tax Gas, Electric \"\>", "\[InvisibleSpace]", 
   "0.018583482225913335`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.025884566025155636`"}],
  SequenceForm[
  "Optimal Single Tax Gas, Electric ", 0.018583482225913335`, " ", 
   0.025884566025155636`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739586024639063`*^9}],

Cell[BoxData["\<\" A Versus E \"\>"], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958641133836*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single subsidy \"\>", 
   "\[InvisibleSpace]", 
   "0.95327644838663259539486954395102590432`15.653559774535784"}],
  SequenceForm[
  "Probability at optimal single subsidy ", 
   0.95327644838663259539486954395102590432`15.653559774535784],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739586411403837`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact: Welfare county native - welfare uniform full  \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"-", "69.83078861236572`"}]}],
  SequenceForm[
  "Exact: Welfare county native - welfare uniform full  ", -69.83078861236572],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.6739586411468782`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from county native \"\>", "\[InvisibleSpace]", 
   "2.582259797085329`*^9"}],
  SequenceForm["Welfare from county native ", 2.582259797085329*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.67395864115368*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform full  \"\>", "\[InvisibleSpace]", 
   "2.5822598669161177`*^9"}],
  SequenceForm["Welfare from uniform full  ", 2.5822598669161177`*^9],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958641160357*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Tax Gas, Electric \"\>", "\[InvisibleSpace]", 
   "0.01858348031236465`", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "0.025884568794634938`"}],
  SequenceForm[
  "Optimal Single Tax Gas, Electric ", 0.01858348031236465, " ", 
   0.025884568794634938`],
  Editable->False]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958641167392*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\" \"\>", ",", "10664.019305026453`", ",", 
     "10507.638476642005`", ",", "10037.279770879111`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Prob of Adoption Gas Car\"\>", ",", 
     "0.9906422801431336815206132677804323237`15.653559774527023", ",", 
     "0.98129073456523775550736488435897088406`15.653559774527023", ",", 
     "0.9532764457708938869540278774967143919`15.653559774535784"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Optimal Uniform Gas Tax \"\>", ",", "0.018583482225913335`", 
     ",", "0.018583482225913335`", ",", "0.018583482225913335`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare B-A: state specific vs uniform\"\>", ",", 
     "4.862886428833008`", ",", "6.550914287567139`", ",", 
     "11.680315017700195`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare C-A: county specific vs uniform\"\>", ",", 
     "10.803669452667236`", ",", "12.7024507522583`", ",", 
     "18.47693634033203`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare D-A: state specific (native) vs uniform\"\>", ",", 
     RowBox[{"-", "60.33897304534912`"}], ",", 
     RowBox[{"-", "64.1639142036438`"}], ",", 
     RowBox[{"-", "75.6579942703247`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare E-A: county specific (native) vs uniform\"\>", ",", 
     RowBox[{"-", "55.151326179504395`"}], ",", 
     RowBox[{"-", "58.81908464431763`"}], ",", 
     RowBox[{"-", "69.83078861236572`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare B-D: state specific vs state specific (native)\"\>", 
     ",", "65.20185947418213`", ",", "70.71482849121094`", ",", 
     "87.3383092880249`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare C-E: county specific vs county specific \
(native)\"\>", ",", "65.95499563217163`", ",", "71.52153539657593`", ",", 
     "88.30772495269775`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare A: uniform tax on gas, electric across all \
states\"\>", ",", "2.5822594868893967`*^9", ",", "2.5822595850811424`*^9", 
     ",", "2.5822598669158792`*^9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare A': uniform tax  on gas, electric across all \
counties\"\>", ",", "2.582259486889657`*^9", ",", "2.582259585081396`*^9", 
     ",", "2.5822598669161177`*^9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Optimal Uniform Electric Tax\"\>", ",", 
     "0.025884566025155636`", ",", "0.025884566025155636`", ",", 
     "0.025884566025155636`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare A: Federal \"\>", ",", "2.5822594868893967`*^9", ",",
      "2.5822595850811424`*^9", ",", "2.5822598669158792`*^9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare B: State \"\>", ",", "2.582259491752283`*^9", ",", 
     "2.5822595916320567`*^9", ",", "2.5822598785961943`*^9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare C: County \"\>", ",", "2.5822594976933265`*^9", ",", 
     "2.582259597783847`*^9", ",", "2.582259885393054`*^9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare D: State Native \"\>", ",", "2.5822594265504236`*^9",
      ",", "2.582259520917228`*^9", ",", "2.582259791257885`*^9"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare E: County Native \"\>", ",", "2.582259431738331`*^9",
      ",", "2.5822595262623115`*^9", ",", "2.582259797085329`*^9"}], "}"}]}], 
  "}"}]], "Print",
 CellChangeTimes->{3.6126148448805647`*^9, 3.612617053314563*^9, 
  3.6126171061959543`*^9, 3.612617544909993*^9, 3.612618343316723*^9, 
  3.6127927032287197`*^9, 3.612793355395273*^9, 3.612794025846218*^9, 
  3.612794854238881*^9, 3.612794892380752*^9, 3.612794941269454*^9, 
  3.612796251575226*^9, 3.612866935793902*^9, 3.612884910325657*^9, 
  3.621768606275435*^9, 3.627309528125201*^9, 3.631631466584937*^9, 
  3.632481253959731*^9, 3.632584510636032*^9, 3.632592413202869*^9, 
  3.632848721600074*^9, 3.632849019746169*^9, 3.633087148719966*^9, 
  3.6336060832359657`*^9, 3.6336088234441*^9, 3.633876467630084*^9, 
  3.634398945853367*^9, 3.6349962950730658`*^9, 3.63499652881502*^9, 
  3.635000428504347*^9, 3.6580772648976927`*^9, 3.658077576955864*^9, 
  3.659704172096712*^9, 3.661009192515526*^9, 3.6610848801797256`*^9, 
  3.673958641175119*^9}]
}, Open  ]],

Cell[BoxData["\<\"welfare_big_tax2011.xlsx\"\>"], "Output",
 CellChangeTimes->{
  3.611057898308585*^9, 3.611057996229701*^9, 3.611058112073534*^9, {
   3.611058380251402*^9, 3.611058461974218*^9}, 3.611058524042748*^9, 
   3.611059373607765*^9, 3.6110594773396997`*^9, 3.611059618627243*^9, 
   3.61105982026546*^9, {3.6110598795475597`*^9, 3.611059893812447*^9}, 
   3.6110600273430157`*^9, 3.611060080718577*^9, {3.611060352616242*^9, 
   3.611060382165983*^9}, 3.611060542358573*^9, 3.611061138029195*^9, 
   3.6110614561274853`*^9, 3.611061525637685*^9, {3.611061556654544*^9, 
   3.6110615734397163`*^9}, {3.611061814688031*^9, 3.611061842889675*^9}, 
   3.6110618877261143`*^9, 3.611061940076025*^9, 3.611062244347458*^9, 
   3.611067977137841*^9, {3.611319947879558*^9, 3.611319979262575*^9}, 
   3.611320065274014*^9, 3.611320118398333*^9, 3.611320162230113*^9, 
   3.611320284731204*^9, 3.6113204013925037`*^9, {3.6113205376746683`*^9, 
   3.6113205665899067`*^9}, 3.611320666433518*^9, 3.611321154919878*^9, {
   3.611321211882049*^9, 3.611321234806746*^9}, {3.611321313292583*^9, 
   3.6113213606793833`*^9}, {3.611321455399179*^9, 3.611321468797062*^9}, {
   3.611321535501436*^9, 3.611321546615385*^9}, 3.611321628239285*^9, 
   3.611321705014036*^9, 3.611322504734293*^9, 3.611322564701857*^9, 
   3.611322703102584*^9, 3.6113230412567863`*^9, 3.61132765427317*^9, 
   3.611659994447823*^9, 3.6116600369772053`*^9, 3.6116600949418087`*^9, 
   3.6125268711778793`*^9, 3.612526905078992*^9, 3.61252699214542*^9, 
   3.612527261318284*^9, 3.612529563073154*^9, 3.612614046370076*^9, 
   3.612614220193791*^9, 3.612614384390292*^9, 3.612614472270536*^9, 
   3.612614613408866*^9, {3.612614817566716*^9, 3.612614844879161*^9}, 
   3.612617053306816*^9, 3.612617106193083*^9, 3.612617544906761*^9, 
   3.61261834328504*^9, 3.612792703196203*^9, 3.612793355392211*^9, 
   3.612794025818077*^9, 3.612794854207396*^9, 3.6127948923473997`*^9, 
   3.612794941237402*^9, 3.612796251539843*^9, 3.612866935790411*^9, 
   3.612884910323057*^9, 3.621768606271896*^9, 3.627309528121737*^9, 
   3.631631466581436*^9, 3.632481253955922*^9, 3.632584510632539*^9, 
   3.6325924131995087`*^9, 3.632848721596401*^9, 3.632849019714581*^9, 
   3.6330871486853647`*^9, 3.633606083232152*^9, 3.633608823408917*^9, 
   3.6338764675990562`*^9, 3.634398945821261*^9, 3.634996295042865*^9, 
   3.634996528783494*^9, 3.635000428475781*^9, 3.658077264882564*^9, 
   3.6580775769076347`*^9, 3.659704164945818*^9, 3.661009192474753*^9, 
   3.661084880147097*^9, 3.67395864118183*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.610984476370016*^9, 3.610984479394001*^9}}],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{{3.612617973673684*^9, 3.61261797507331*^9}}]
},
WindowSize->{724, 848},
WindowMargins->{{28, Automatic}, {Automatic, 0}},
FrontEndVersion->"10.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 23, \
2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 146, 2, 63, "Input"],
Cell[CellGroupData[{
Cell[728, 26, 116070, 2695, 12898, "Input"],
Cell[116801, 2723, 2537, 36, 28, "Output"],
Cell[119341, 2761, 2593, 37, 28, "Output"],
Cell[121937, 2800, 2656, 40, 35, "Output"],
Cell[124596, 2842, 2651, 40, 28, "Output"],
Cell[CellGroupData[{
Cell[127272, 2886, 894, 13, 21, "Print"],
Cell[128169, 2901, 1061, 18, 21, "Print"],
Cell[129233, 2921, 1065, 18, 23, "Print"],
Cell[130301, 2941, 894, 13, 21, "Print"],
Cell[131198, 2956, 905, 13, 21, "Print"],
Cell[132106, 2971, 1190, 20, 22, "Print"],
Cell[133299, 2993, 1078, 18, 23, "Print"],
Cell[134380, 3013, 1219, 23, 21, "Print"],
Cell[135602, 3038, 1042, 17, 21, "Print"],
Cell[136647, 3057, 1226, 21, 22, "Print"],
Cell[137876, 3080, 1073, 20, 23, "Print"],
Cell[138952, 3102, 1091, 18, 22, "Print"],
Cell[140046, 3122, 1101, 18, 22, "Print"],
Cell[141150, 3142, 907, 13, 21, "Print"],
Cell[142060, 3157, 1204, 21, 22, "Print"],
Cell[143267, 3180, 1091, 18, 24, "Print"],
Cell[144361, 3200, 1091, 18, 23, "Print"],
Cell[145455, 3220, 1045, 17, 21, "Print"],
Cell[146503, 3239, 1221, 21, 22, "Print"],
Cell[147727, 3262, 904, 13, 21, "Print"],
Cell[148634, 3277, 1202, 21, 22, "Print"],
Cell[149839, 3300, 1093, 18, 23, "Print"],
Cell[150935, 3320, 1093, 18, 23, "Print"],
Cell[152031, 3340, 1179, 21, 21, "Print"],
Cell[153213, 3363, 1224, 21, 22, "Print"],
Cell[154440, 3386, 905, 13, 21, "Print"],
Cell[155348, 3401, 1202, 21, 22, "Print"],
Cell[156553, 3424, 1166, 21, 22, "Print"],
Cell[157722, 3447, 1092, 18, 24, "Print"],
Cell[158817, 3467, 1092, 18, 23, "Print"],
Cell[159912, 3487, 1220, 21, 22, "Print"],
Cell[161135, 3510, 894, 13, 21, "Print"],
Cell[162032, 3525, 1061, 18, 21, "Print"],
Cell[163096, 3545, 1065, 18, 23, "Print"],
Cell[164164, 3565, 894, 13, 21, "Print"],
Cell[165061, 3580, 907, 13, 21, "Print"],
Cell[165971, 3595, 1192, 20, 22, "Print"],
Cell[167166, 3617, 1083, 18, 23, "Print"],
Cell[168252, 3637, 1221, 23, 21, "Print"],
Cell[169476, 3662, 1042, 17, 21, "Print"],
Cell[170521, 3681, 1226, 21, 22, "Print"],
Cell[171750, 3704, 1073, 20, 23, "Print"],
Cell[172826, 3726, 1091, 18, 22, "Print"],
Cell[173920, 3746, 1099, 18, 22, "Print"],
Cell[175022, 3766, 904, 13, 21, "Print"],
Cell[175929, 3781, 1204, 21, 22, "Print"],
Cell[177136, 3804, 1090, 18, 24, "Print"],
Cell[178229, 3824, 1094, 18, 23, "Print"],
Cell[179326, 3844, 1040, 17, 21, "Print"],
Cell[180369, 3863, 1220, 21, 22, "Print"],
Cell[181592, 3886, 907, 13, 21, "Print"],
Cell[182502, 3901, 1204, 21, 22, "Print"],
Cell[183709, 3924, 1090, 18, 23, "Print"],
Cell[184802, 3944, 1093, 18, 23, "Print"],
Cell[185898, 3964, 1177, 21, 21, "Print"],
Cell[187078, 3987, 1224, 21, 22, "Print"],
Cell[188305, 4010, 907, 13, 21, "Print"],
Cell[189215, 4025, 1202, 21, 22, "Print"],
Cell[190420, 4048, 1161, 20, 22, "Print"],
Cell[191584, 4070, 1097, 18, 24, "Print"],
Cell[192684, 4090, 1094, 18, 23, "Print"],
Cell[193781, 4110, 1220, 21, 22, "Print"],
Cell[195004, 4133, 896, 13, 21, "Print"],
Cell[195903, 4148, 1061, 18, 21, "Print"],
Cell[196967, 4168, 1062, 18, 23, "Print"],
Cell[198032, 4188, 894, 13, 21, "Print"],
Cell[198929, 4203, 902, 13, 21, "Print"],
Cell[199834, 4218, 1188, 20, 22, "Print"],
Cell[201025, 4240, 1081, 18, 23, "Print"],
Cell[202109, 4260, 1221, 23, 21, "Print"],
Cell[203333, 4285, 1045, 17, 21, "Print"],
Cell[204381, 4304, 1226, 21, 22, "Print"],
Cell[205610, 4327, 1073, 20, 23, "Print"],
Cell[206686, 4349, 1091, 18, 22, "Print"],
Cell[207780, 4369, 1099, 18, 22, "Print"],
Cell[208882, 4389, 907, 13, 21, "Print"],
Cell[209792, 4404, 1204, 21, 22, "Print"],
Cell[210999, 4427, 1088, 18, 24, "Print"],
Cell[212090, 4447, 1095, 18, 23, "Print"],
Cell[213188, 4467, 1042, 17, 21, "Print"],
Cell[214233, 4486, 1221, 21, 22, "Print"],
Cell[215457, 4509, 905, 13, 21, "Print"],
Cell[216365, 4524, 1202, 21, 22, "Print"],
Cell[217570, 4547, 1092, 18, 23, "Print"],
Cell[218665, 4567, 1095, 18, 23, "Print"],
Cell[219763, 4587, 1177, 21, 21, "Print"],
Cell[220943, 4610, 1226, 21, 22, "Print"],
Cell[222172, 4633, 905, 13, 21, "Print"],
Cell[223080, 4648, 1204, 21, 22, "Print"],
Cell[224287, 4671, 1163, 20, 22, "Print"],
Cell[225453, 4693, 1091, 18, 24, "Print"],
Cell[226547, 4713, 1095, 18, 23, "Print"],
Cell[227645, 4733, 1221, 21, 22, "Print"],
Cell[228869, 4756, 4305, 82, 349, "Print"]
}, Open  ]],
Cell[233189, 4841, 2563, 36, 28, "Output"]
}, Open  ]],
Cell[235767, 4880, 146, 2, 63, "Input"],
Cell[235916, 4884, 92, 1, 28, "Input"]
}
]
*)

(* End of internal cache information *)
